home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / ComCorn / Office_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-01  |  252.6 KB  |  5,302 lines
  1. unit Office_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                  //
  5. // -------                                                                  //
  6. // The types declared in this file were generated from data read from a     //
  7. // Type Library. If this type library is explicitly or indirectly (via      //
  8. // another type library referring to this type library) re-imported, or the //
  9. // 'Refresh' command of the Type Library Editor activated while editing the //
  10. // Type Library, the contents of this file will be regenerated and all      //
  11. // manual modifications will be lost.                                       //
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11.1.75  $
  15. // File generated on 8/1/99 8:35:50 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: C:\Program Files\Microsoft Office\Office\MSO9.DLL
  19. // IID\LCID: {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}\0
  20. // Helpfile: C:\Program Files\Microsoft Office\Office\vbaoff9.chm
  21. // HelpString: Microsoft Office 9.0 Object Library
  22. // Version:    2.1
  23. // ************************************************************************ //
  24.  
  25. interface
  26.  
  27. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  28.  
  29. // *********************************************************************//
  30. // GUIDS declared in the TypeLibrary. Following prefixes are used:      //
  31. //   Type Libraries     : LIBID_xxxx                                    //
  32. //   CoClasses          : CLASS_xxxx                                    //
  33. //   DISPInterfaces     : DIID_xxxx                                     //
  34. //   Non-DISP interfaces: IID_xxxx                                      //
  35. // *********************************************************************//
  36. const
  37.   LIBID_Office: TGUID = '{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}';
  38.   IID_IAccessible: TGUID = '{618736E0-3C3D-11CF-810C-00AA00389B71}';
  39.   IID__IMsoDispObj: TGUID = '{000C0300-0000-0000-C000-000000000046}';
  40.   IID__IMsoOleAccDispObj: TGUID = '{000C0301-0000-0000-C000-000000000046}';
  41.   IID__CommandBars: TGUID = '{000C0302-0000-0000-C000-000000000046}';
  42.   IID_CommandBar: TGUID = '{000C0304-0000-0000-C000-000000000046}';
  43.   IID_CommandBarControls: TGUID = '{000C0306-0000-0000-C000-000000000046}';
  44.   IID_CommandBarControl: TGUID = '{000C0308-0000-0000-C000-000000000046}';
  45.   IID__CommandBarButton: TGUID = '{000C030E-0000-0000-C000-000000000046}';
  46.   IID_CommandBarPopup: TGUID = '{000C030A-0000-0000-C000-000000000046}';
  47.   IID__CommandBarComboBox: TGUID = '{000C030C-0000-0000-C000-000000000046}';
  48.   IID__CommandBarActiveX: TGUID = '{000C030D-0000-0000-C000-000000000046}';
  49.   IID_Adjustments: TGUID = '{000C0310-0000-0000-C000-000000000046}';
  50.   IID_CalloutFormat: TGUID = '{000C0311-0000-0000-C000-000000000046}';
  51.   IID_ColorFormat: TGUID = '{000C0312-0000-0000-C000-000000000046}';
  52.   IID_ConnectorFormat: TGUID = '{000C0313-0000-0000-C000-000000000046}';
  53.   IID_FillFormat: TGUID = '{000C0314-0000-0000-C000-000000000046}';
  54.   IID_FreeformBuilder: TGUID = '{000C0315-0000-0000-C000-000000000046}';
  55.   IID_GroupShapes: TGUID = '{000C0316-0000-0000-C000-000000000046}';
  56.   IID_LineFormat: TGUID = '{000C0317-0000-0000-C000-000000000046}';
  57.   IID_ShapeNode: TGUID = '{000C0318-0000-0000-C000-000000000046}';
  58.   IID_ShapeNodes: TGUID = '{000C0319-0000-0000-C000-000000000046}';
  59.   IID_PictureFormat: TGUID = '{000C031A-0000-0000-C000-000000000046}';
  60.   IID_ShadowFormat: TGUID = '{000C031B-0000-0000-C000-000000000046}';
  61.   IID_Script: TGUID = '{000C0341-0000-0000-C000-000000000046}';
  62.   IID_Scripts: TGUID = '{000C0340-0000-0000-C000-000000000046}';
  63.   IID_Shape: TGUID = '{000C031C-0000-0000-C000-000000000046}';
  64.   IID_ShapeRange: TGUID = '{000C031D-0000-0000-C000-000000000046}';
  65.   IID_Shapes: TGUID = '{000C031E-0000-0000-C000-000000000046}';
  66.   IID_TextEffectFormat: TGUID = '{000C031F-0000-0000-C000-000000000046}';
  67.   IID_TextFrame: TGUID = '{000C0320-0000-0000-C000-000000000046}';
  68.   IID_ThreeDFormat: TGUID = '{000C0321-0000-0000-C000-000000000046}';
  69.   IID_IMsoDispCagNotifySink: TGUID = '{000C0359-0000-0000-C000-000000000046}';
  70.   IID_Balloon: TGUID = '{000C0324-0000-0000-C000-000000000046}';
  71.   IID_BalloonCheckboxes: TGUID = '{000C0326-0000-0000-C000-000000000046}';
  72.   IID_BalloonCheckbox: TGUID = '{000C0328-0000-0000-C000-000000000046}';
  73.   IID_BalloonLabels: TGUID = '{000C032E-0000-0000-C000-000000000046}';
  74.   IID_BalloonLabel: TGUID = '{000C0330-0000-0000-C000-000000000046}';
  75.   IID_AnswerWizardFiles: TGUID = '{000C0361-0000-0000-C000-000000000046}';
  76.   IID_AnswerWizard: TGUID = '{000C0360-0000-0000-C000-000000000046}';
  77.   IID_Assistant: TGUID = '{000C0322-0000-0000-C000-000000000046}';
  78.   IID_DocumentProperty: TGUID = '{2DF8D04E-5BFA-101B-BDE5-00AA0044DE52}';
  79.   IID_DocumentProperties: TGUID = '{2DF8D04D-5BFA-101B-BDE5-00AA0044DE52}';
  80.   IID_IFoundFiles: TGUID = '{000C0338-0000-0000-C000-000000000046}';
  81.   IID_IFind: TGUID = '{000C0337-0000-0000-C000-000000000046}';
  82.   IID_FoundFiles: TGUID = '{000C0331-0000-0000-C000-000000000046}';
  83.   IID_PropertyTest: TGUID = '{000C0333-0000-0000-C000-000000000046}';
  84.   IID_PropertyTests: TGUID = '{000C0334-0000-0000-C000-000000000046}';
  85.   IID_FileSearch: TGUID = '{000C0332-0000-0000-C000-000000000046}';
  86.   IID_COMAddIn: TGUID = '{000C033A-0000-0000-C000-000000000046}';
  87.   IID_COMAddIns: TGUID = '{000C0339-0000-0000-C000-000000000046}';
  88.   IID_LanguageSettings: TGUID = '{000C0353-0000-0000-C000-000000000046}';
  89.   IID_ICommandBarsEvents: TGUID = '{55F88892-7708-11D1-ACEB-006008961DA5}';
  90.   DIID__CommandBarsEvents: TGUID = '{000C0352-0000-0000-C000-000000000046}';
  91.   CLASS_CommandBars: TGUID = '{55F88893-7708-11D1-ACEB-006008961DA5}';
  92.   IID_ICommandBarComboBoxEvents: TGUID = '{55F88896-7708-11D1-ACEB-006008961DA5}';
  93.   DIID__CommandBarComboBoxEvents: TGUID = '{000C0354-0000-0000-C000-000000000046}';
  94.   CLASS_CommandBarComboBox: TGUID = '{55F88897-7708-11D1-ACEB-006008961DA5}';
  95.   IID_ICommandBarButtonEvents: TGUID = '{55F88890-7708-11D1-ACEB-006008961DA5}';
  96.   DIID__CommandBarButtonEvents: TGUID = '{000C0351-0000-0000-C000-000000000046}';
  97.   CLASS_CommandBarButton: TGUID = '{55F88891-7708-11D1-ACEB-006008961DA5}';
  98.   IID_WebPageFont: TGUID = '{000C0913-0000-0000-C000-000000000046}';
  99.   IID_WebPageFonts: TGUID = '{000C0914-0000-0000-C000-000000000046}';
  100.   IID_HTMLProjectItem: TGUID = '{000C0358-0000-0000-C000-000000000046}';
  101.   IID_HTMLProjectItems: TGUID = '{000C0357-0000-0000-C000-000000000046}';
  102.   IID_HTMLProject: TGUID = '{000C0356-0000-0000-C000-000000000046}';
  103.   IID_MsoDebugOptions: TGUID = '{000C035A-0000-0000-C000-000000000046}';
  104.  
  105. // *********************************************************************//
  106. // Declaration of Enumerations defined in Type Library                  //
  107. // *********************************************************************//
  108. // MsoLineDashStyle constants
  109. type
  110.   MsoLineDashStyle = TOleEnum;
  111. const
  112.   msoLineDashStyleMixed = $FFFFFFFE;
  113.   msoLineSolid = $00000001;
  114.   msoLineSquareDot = $00000002;
  115.   msoLineRoundDot = $00000003;
  116.   msoLineDash = $00000004;
  117.   msoLineDashDot = $00000005;
  118.   msoLineDashDotDot = $00000006;
  119.   msoLineLongDash = $00000007;
  120.   msoLineLongDashDot = $00000008;
  121.  
  122. // MsoLineStyle constants
  123. type
  124.   MsoLineStyle = TOleEnum;
  125. const
  126.   msoLineStyleMixed = $FFFFFFFE;
  127.   msoLineSingle = $00000001;
  128.   msoLineThinThin = $00000002;
  129.   msoLineThinThick = $00000003;
  130.   msoLineThickThin = $00000004;
  131.   msoLineThickBetweenThin = $00000005;
  132.  
  133. // MsoArrowheadStyle constants
  134. type
  135.   MsoArrowheadStyle = TOleEnum;
  136. const
  137.   msoArrowheadStyleMixed = $FFFFFFFE;
  138.   msoArrowheadNone = $00000001;
  139.   msoArrowheadTriangle = $00000002;
  140.   msoArrowheadOpen = $00000003;
  141.   msoArrowheadStealth = $00000004;
  142.   msoArrowheadDiamond = $00000005;
  143.   msoArrowheadOval = $00000006;
  144.  
  145. // MsoArrowheadWidth constants
  146. type
  147.   MsoArrowheadWidth = TOleEnum;
  148. const
  149.   msoArrowheadWidthMixed = $FFFFFFFE;
  150.   msoArrowheadNarrow = $00000001;
  151.   msoArrowheadWidthMedium = $00000002;
  152.   msoArrowheadWide = $00000003;
  153.  
  154. // MsoArrowheadLength constants
  155. type
  156.   MsoArrowheadLength = TOleEnum;
  157. const
  158.   msoArrowheadLengthMixed = $FFFFFFFE;
  159.   msoArrowheadShort = $00000001;
  160.   msoArrowheadLengthMedium = $00000002;
  161.   msoArrowheadLong = $00000003;
  162.  
  163. // MsoFillType constants
  164. type
  165.   MsoFillType = TOleEnum;
  166. const
  167.   msoFillMixed = $FFFFFFFE;
  168.   msoFillSolid = $00000001;
  169.   msoFillPatterned = $00000002;
  170.   msoFillGradient = $00000003;
  171.   msoFillTextured = $00000004;
  172.   msoFillBackground = $00000005;
  173.   msoFillPicture = $00000006;
  174.  
  175. // MsoGradientStyle constants
  176. type
  177.   MsoGradientStyle = TOleEnum;
  178. const
  179.   msoGradientMixed = $FFFFFFFE;
  180.   msoGradientHorizontal = $00000001;
  181.   msoGradientVertical = $00000002;
  182.   msoGradientDiagonalUp = $00000003;
  183.   msoGradientDiagonalDown = $00000004;
  184.   msoGradientFromCorner = $00000005;
  185.   msoGradientFromTitle = $00000006;
  186.   msoGradientFromCenter = $00000007;
  187.  
  188. // MsoGradientColorType constants
  189. type
  190.   MsoGradientColorType = TOleEnum;
  191. const
  192.   msoGradientColorMixed = $FFFFFFFE;
  193.   msoGradientOneColor = $00000001;
  194.   msoGradientTwoColors = $00000002;
  195.   msoGradientPresetColors = $00000003;
  196.  
  197. // MsoTextureType constants
  198. type
  199.   MsoTextureType = TOleEnum;
  200. const
  201.   msoTextureTypeMixed = $FFFFFFFE;
  202.   msoTexturePreset = $00000001;
  203.   msoTextureUserDefined = $00000002;
  204.  
  205. // MsoPresetTexture constants
  206. type
  207.   MsoPresetTexture = TOleEnum;
  208. const
  209.   msoPresetTextureMixed = $FFFFFFFE;
  210.   msoTexturePapyrus = $00000001;
  211.   msoTextureCanvas = $00000002;
  212.   msoTextureDenim = $00000003;
  213.   msoTextureWovenMat = $00000004;
  214.   msoTextureWaterDroplets = $00000005;
  215.   msoTexturePaperBag = $00000006;
  216.   msoTextureFishFossil = $00000007;
  217.   msoTextureSand = $00000008;
  218.   msoTextureGreenMarble = $00000009;
  219.   msoTextureWhiteMarble = $0000000A;
  220.   msoTextureBrownMarble = $0000000B;
  221.   msoTextureGranite = $0000000C;
  222.   msoTextureNewsprint = $0000000D;
  223.   msoTextureRecycledPaper = $0000000E;
  224.   msoTextureParchment = $0000000F;
  225.   msoTextureStationery = $00000010;
  226.   msoTextureBlueTissuePaper = $00000011;
  227.   msoTexturePinkTissuePaper = $00000012;
  228.   msoTexturePurpleMesh = $00000013;
  229.   msoTextureBouquet = $00000014;
  230.   msoTextureCork = $00000015;
  231.   msoTextureWalnut = $00000016;
  232.   msoTextureOak = $00000017;
  233.   msoTextureMediumWood = $00000018;
  234.  
  235. // MsoPatternType constants
  236. type
  237.   MsoPatternType = TOleEnum;
  238. const
  239.   msoPatternMixed = $FFFFFFFE;
  240.   msoPattern5Percent = $00000001;
  241.   msoPattern10Percent = $00000002;
  242.   msoPattern20Percent = $00000003;
  243.   msoPattern25Percent = $00000004;
  244.   msoPattern30Percent = $00000005;
  245.   msoPattern40Percent = $00000006;
  246.   msoPattern50Percent = $00000007;
  247.   msoPattern60Percent = $00000008;
  248.   msoPattern70Percent = $00000009;
  249.   msoPattern75Percent = $0000000A;
  250.   msoPattern80Percent = $0000000B;
  251.   msoPattern90Percent = $0000000C;
  252.   msoPatternDarkHorizontal = $0000000D;
  253.   msoPatternDarkVertical = $0000000E;
  254.   msoPatternDarkDownwardDiagonal = $0000000F;
  255.   msoPatternDarkUpwardDiagonal = $00000010;
  256.   msoPatternSmallCheckerBoard = $00000011;
  257.   msoPatternTrellis = $00000012;
  258.   msoPatternLightHorizontal = $00000013;
  259.   msoPatternLightVertical = $00000014;
  260.   msoPatternLightDownwardDiagonal = $00000015;
  261.   msoPatternLightUpwardDiagonal = $00000016;
  262.   msoPatternSmallGrid = $00000017;
  263.   msoPatternDottedDiamond = $00000018;
  264.   msoPatternWideDownwardDiagonal = $00000019;
  265.   msoPatternWideUpwardDiagonal = $0000001A;
  266.   msoPatternDashedUpwardDiagonal = $0000001B;
  267.   msoPatternDashedDownwardDiagonal = $0000001C;
  268.   msoPatternNarrowVertical = $0000001D;
  269.   msoPatternNarrowHorizontal = $0000001E;
  270.   msoPatternDashedVertical = $0000001F;
  271.   msoPatternDashedHorizontal = $00000020;
  272.   msoPatternLargeConfetti = $00000021;
  273.   msoPatternLargeGrid = $00000022;
  274.   msoPatternHorizontalBrick = $00000023;
  275.   msoPatternLargeCheckerBoard = $00000024;
  276.   msoPatternSmallConfetti = $00000025;
  277.   msoPatternZigZag = $00000026;
  278.   msoPatternSolidDiamond = $00000027;
  279.   msoPatternDiagonalBrick = $00000028;
  280.   msoPatternOutlinedDiamond = $00000029;
  281.   msoPatternPlaid = $0000002A;
  282.   msoPatternSphere = $0000002B;
  283.   msoPatternWeave = $0000002C;
  284.   msoPatternDottedGrid = $0000002D;
  285.   msoPatternDivot = $0000002E;
  286.   msoPatternShingle = $0000002F;
  287.   msoPatternWave = $00000030;
  288.  
  289. // MsoPresetGradientType constants
  290. type
  291.   MsoPresetGradientType = TOleEnum;
  292. const
  293.   msoPresetGradientMixed = $FFFFFFFE;
  294.   msoGradientEarlySunset = $00000001;
  295.   msoGradientLateSunset = $00000002;
  296.   msoGradientNightfall = $00000003;
  297.   msoGradientDaybreak = $00000004;
  298.   msoGradientHorizon = $00000005;
  299.   msoGradientDesert = $00000006;
  300.   msoGradientOcean = $00000007;
  301.   msoGradientCalmWater = $00000008;
  302.   msoGradientFire = $00000009;
  303.   msoGradientFog = $0000000A;
  304.   msoGradientMoss = $0000000B;
  305.   msoGradientPeacock = $0000000C;
  306.   msoGradientWheat = $0000000D;
  307.   msoGradientParchment = $0000000E;
  308.   msoGradientMahogany = $0000000F;
  309.   msoGradientRainbow = $00000010;
  310.   msoGradientRainbowII = $00000011;
  311.   msoGradientGold = $00000012;
  312.   msoGradientGoldII = $00000013;
  313.   msoGradientBrass = $00000014;
  314.   msoGradientChrome = $00000015;
  315.   msoGradientChromeII = $00000016;
  316.   msoGradientSilver = $00000017;
  317.   msoGradientSapphire = $00000018;
  318.  
  319. // MsoShadowType constants
  320. type
  321.   MsoShadowType = TOleEnum;
  322. const
  323.   msoShadowMixed = $FFFFFFFE;
  324.   msoShadow1 = $00000001;
  325.   msoShadow2 = $00000002;
  326.   msoShadow3 = $00000003;
  327.   msoShadow4 = $00000004;
  328.   msoShadow5 = $00000005;
  329.   msoShadow6 = $00000006;
  330.   msoShadow7 = $00000007;
  331.   msoShadow8 = $00000008;
  332.   msoShadow9 = $00000009;
  333.   msoShadow10 = $0000000A;
  334.   msoShadow11 = $0000000B;
  335.   msoShadow12 = $0000000C;
  336.   msoShadow13 = $0000000D;
  337.   msoShadow14 = $0000000E;
  338.   msoShadow15 = $0000000F;
  339.   msoShadow16 = $00000010;
  340.   msoShadow17 = $00000011;
  341.   msoShadow18 = $00000012;
  342.   msoShadow19 = $00000013;
  343.   msoShadow20 = $00000014;
  344.  
  345. // MsoPresetTextEffect constants
  346. type
  347.   MsoPresetTextEffect = TOleEnum;
  348. const
  349.   msoTextEffectMixed = $FFFFFFFE;
  350.   msoTextEffect1 = $00000000;
  351.   msoTextEffect2 = $00000001;
  352.   msoTextEffect3 = $00000002;
  353.   msoTextEffect4 = $00000003;
  354.   msoTextEffect5 = $00000004;
  355.   msoTextEffect6 = $00000005;
  356.   msoTextEffect7 = $00000006;
  357.   msoTextEffect8 = $00000007;
  358.   msoTextEffect9 = $00000008;
  359.   msoTextEffect10 = $00000009;
  360.   msoTextEffect11 = $0000000A;
  361.   msoTextEffect12 = $0000000B;
  362.   msoTextEffect13 = $0000000C;
  363.   msoTextEffect14 = $0000000D;
  364.   msoTextEffect15 = $0000000E;
  365.   msoTextEffect16 = $0000000F;
  366.   msoTextEffect17 = $00000010;
  367.   msoTextEffect18 = $00000011;
  368.   msoTextEffect19 = $00000012;
  369.   msoTextEffect20 = $00000013;
  370.   msoTextEffect21 = $00000014;
  371.   msoTextEffect22 = $00000015;
  372.   msoTextEffect23 = $00000016;
  373.   msoTextEffect24 = $00000017;
  374.   msoTextEffect25 = $00000018;
  375.   msoTextEffect26 = $00000019;
  376.   msoTextEffect27 = $0000001A;
  377.   msoTextEffect28 = $0000001B;
  378.   msoTextEffect29 = $0000001C;
  379.   msoTextEffect30 = $0000001D;
  380.  
  381. // MsoPresetTextEffectShape constants
  382. type
  383.   MsoPresetTextEffectShape = TOleEnum;
  384. const
  385.   msoTextEffectShapeMixed = $FFFFFFFE;
  386.   msoTextEffectShapePlainText = $00000001;
  387.   msoTextEffectShapeStop = $00000002;
  388.   msoTextEffectShapeTriangleUp = $00000003;
  389.   msoTextEffectShapeTriangleDown = $00000004;
  390.   msoTextEffectShapeChevronUp = $00000005;
  391.   msoTextEffectShapeChevronDown = $00000006;
  392.   msoTextEffectShapeRingInside = $00000007;
  393.   msoTextEffectShapeRingOutside = $00000008;
  394.   msoTextEffectShapeArchUpCurve = $00000009;
  395.   msoTextEffectShapeArchDownCurve = $0000000A;
  396.   msoTextEffectShapeCircleCurve = $0000000B;
  397.   msoTextEffectShapeButtonCurve = $0000000C;
  398.   msoTextEffectShapeArchUpPour = $0000000D;
  399.   msoTextEffectShapeArchDownPour = $0000000E;
  400.   msoTextEffectShapeCirclePour = $0000000F;
  401.   msoTextEffectShapeButtonPour = $00000010;
  402.   msoTextEffectShapeCurveUp = $00000011;
  403.   msoTextEffectShapeCurveDown = $00000012;
  404.   msoTextEffectShapeCanUp = $00000013;
  405.   msoTextEffectShapeCanDown = $00000014;
  406.   msoTextEffectShapeWave1 = $00000015;
  407.   msoTextEffectShapeWave2 = $00000016;
  408.   msoTextEffectShapeDoubleWave1 = $00000017;
  409.   msoTextEffectShapeDoubleWave2 = $00000018;
  410.   msoTextEffectShapeInflate = $00000019;
  411.   msoTextEffectShapeDeflate = $0000001A;
  412.   msoTextEffectShapeInflateBottom = $0000001B;
  413.   msoTextEffectShapeDeflateBottom = $0000001C;
  414.   msoTextEffectShapeInflateTop = $0000001D;
  415.   msoTextEffectShapeDeflateTop = $0000001E;
  416.   msoTextEffectShapeDeflateInflate = $0000001F;
  417.   msoTextEffectShapeDeflateInflateDeflate = $00000020;
  418.   msoTextEffectShapeFadeRight = $00000021;
  419.   msoTextEffectShapeFadeLeft = $00000022;
  420.   msoTextEffectShapeFadeUp = $00000023;
  421.   msoTextEffectShapeFadeDown = $00000024;
  422.   msoTextEffectShapeSlantUp = $00000025;
  423.   msoTextEffectShapeSlantDown = $00000026;
  424.   msoTextEffectShapeCascadeUp = $00000027;
  425.   msoTextEffectShapeCascadeDown = $00000028;
  426.  
  427. // MsoTextEffectAlignment constants
  428. type
  429.   MsoTextEffectAlignment = TOleEnum;
  430. const
  431.   msoTextEffectAlignmentMixed = $FFFFFFFE;
  432.   msoTextEffectAlignmentLeft = $00000001;
  433.   msoTextEffectAlignmentCentered = $00000002;
  434.   msoTextEffectAlignmentRight = $00000003;
  435.   msoTextEffectAlignmentLetterJustify = $00000004;
  436.   msoTextEffectAlignmentWordJustify = $00000005;
  437.   msoTextEffectAlignmentStretchJustify = $00000006;
  438.  
  439. // MsoPresetLightingDirection constants
  440. type
  441.   MsoPresetLightingDirection = TOleEnum;
  442. const
  443.   msoPresetLightingDirectionMixed = $FFFFFFFE;
  444.   msoLightingTopLeft = $00000001;
  445.   msoLightingTop = $00000002;
  446.   msoLightingTopRight = $00000003;
  447.   msoLightingLeft = $00000004;
  448.   msoLightingNone = $00000005;
  449.   msoLightingRight = $00000006;
  450.   msoLightingBottomLeft = $00000007;
  451.   msoLightingBottom = $00000008;
  452.   msoLightingBottomRight = $00000009;
  453.  
  454. // MsoPresetLightingSoftness constants
  455. type
  456.   MsoPresetLightingSoftness = TOleEnum;
  457. const
  458.   msoPresetLightingSoftnessMixed = $FFFFFFFE;
  459.   msoLightingDim = $00000001;
  460.   msoLightingNormal = $00000002;
  461.   msoLightingBright = $00000003;
  462.  
  463. // MsoPresetMaterial constants
  464. type
  465.   MsoPresetMaterial = TOleEnum;
  466. const
  467.   msoPresetMaterialMixed = $FFFFFFFE;
  468.   msoMaterialMatte = $00000001;
  469.   msoMaterialPlastic = $00000002;
  470.   msoMaterialMetal = $00000003;
  471.   msoMaterialWireFrame = $00000004;
  472.  
  473. // MsoPresetExtrusionDirection constants
  474. type
  475.   MsoPresetExtrusionDirection = TOleEnum;
  476. const
  477.   msoPresetExtrusionDirectionMixed = $FFFFFFFE;
  478.   msoExtrusionBottomRight = $00000001;
  479.   msoExtrusionBottom = $00000002;
  480.   msoExtrusionBottomLeft = $00000003;
  481.   msoExtrusionRight = $00000004;
  482.   msoExtrusionNone = $00000005;
  483.   msoExtrusionLeft = $00000006;
  484.   msoExtrusionTopRight = $00000007;
  485.   msoExtrusionTop = $00000008;
  486.   msoExtrusionTopLeft = $00000009;
  487.  
  488. // MsoPresetThreeDFormat constants
  489. type
  490.   MsoPresetThreeDFormat = TOleEnum;
  491. const
  492.   msoPresetThreeDFormatMixed = $FFFFFFFE;
  493.   msoThreeD1 = $00000001;
  494.   msoThreeD2 = $00000002;
  495.   msoThreeD3 = $00000003;
  496.   msoThreeD4 = $00000004;
  497.   msoThreeD5 = $00000005;
  498.   msoThreeD6 = $00000006;
  499.   msoThreeD7 = $00000007;
  500.   msoThreeD8 = $00000008;
  501.   msoThreeD9 = $00000009;
  502.   msoThreeD10 = $0000000A;
  503.   msoThreeD11 = $0000000B;
  504.   msoThreeD12 = $0000000C;
  505.   msoThreeD13 = $0000000D;
  506.   msoThreeD14 = $0000000E;
  507.   msoThreeD15 = $0000000F;
  508.   msoThreeD16 = $00000010;
  509.   msoThreeD17 = $00000011;
  510.   msoThreeD18 = $00000012;
  511.   msoThreeD19 = $00000013;
  512.   msoThreeD20 = $00000014;
  513.  
  514. // MsoExtrusionColorType constants
  515. type
  516.   MsoExtrusionColorType = TOleEnum;
  517. const
  518.   msoExtrusionColorTypeMixed = $FFFFFFFE;
  519.   msoExtrusionColorAutomatic = $00000001;
  520.   msoExtrusionColorCustom = $00000002;
  521.  
  522. // MsoAlignCmd constants
  523. type
  524.   MsoAlignCmd = TOleEnum;
  525. const
  526.   msoAlignLefts = $00000000;
  527.   msoAlignCenters = $00000001;
  528.   msoAlignRights = $00000002;
  529.   msoAlignTops = $00000003;
  530.   msoAlignMiddles = $00000004;
  531.   msoAlignBottoms = $00000005;
  532.  
  533. // MsoDistributeCmd constants
  534. type
  535.   MsoDistributeCmd = TOleEnum;
  536. const
  537.   msoDistributeHorizontally = $00000000;
  538.   msoDistributeVertically = $00000001;
  539.  
  540. // MsoConnectorType constants
  541. type
  542.   MsoConnectorType = TOleEnum;
  543. const
  544.   msoConnectorTypeMixed = $FFFFFFFE;
  545.   msoConnectorStraight = $00000001;
  546.   msoConnectorElbow = $00000002;
  547.   msoConnectorCurve = $00000003;
  548.  
  549. // MsoHorizontalAnchor constants
  550. type
  551.   MsoHorizontalAnchor = TOleEnum;
  552. const
  553.   msoHorizontalAnchorMixed = $FFFFFFFE;
  554.   msoAnchorNone = $00000001;
  555.   msoAnchorCenter = $00000002;
  556.  
  557. // MsoVerticalAnchor constants
  558. type
  559.   MsoVerticalAnchor = TOleEnum;
  560. const
  561.   msoVerticalAnchorMixed = $FFFFFFFE;
  562.   msoAnchorTop = $00000001;
  563.   msoAnchorTopBaseline = $00000002;
  564.   msoAnchorMiddle = $00000003;
  565.   msoAnchorBottom = $00000004;
  566.   msoAnchorBottomBaseLine = $00000005;
  567.  
  568. // MsoOrientation constants
  569. type
  570.   MsoOrientation = TOleEnum;
  571. const
  572.   msoOrientationMixed = $FFFFFFFE;
  573.   msoOrientationHorizontal = $00000001;
  574.   msoOrientationVertical = $00000002;
  575.  
  576. // MsoZOrderCmd constants
  577. type
  578.   MsoZOrderCmd = TOleEnum;
  579. const
  580.   msoBringToFront = $00000000;
  581.   msoSendToBack = $00000001;
  582.   msoBringForward = $00000002;
  583.   msoSendBackward = $00000003;
  584.   msoBringInFrontOfText = $00000004;
  585.   msoSendBehindText = $00000005;
  586.  
  587. // MsoSegmentType constants
  588. type
  589.   MsoSegmentType = TOleEnum;
  590. const
  591.   msoSegmentLine = $00000000;
  592.   msoSegmentCurve = $00000001;
  593.  
  594. // MsoEditingType constants
  595. type
  596.   MsoEditingType = TOleEnum;
  597. const
  598.   msoEditingAuto = $00000000;
  599.   msoEditingCorner = $00000001;
  600.   msoEditingSmooth = $00000002;
  601.   msoEditingSymmetric = $00000003;
  602.  
  603. // MsoAutoShapeType constants
  604. type
  605.   MsoAutoShapeType = TOleEnum;
  606. const
  607.   msoShapeMixed = $FFFFFFFE;
  608.   msoShapeRectangle = $00000001;
  609.   msoShapeParallelogram = $00000002;
  610.   msoShapeTrapezoid = $00000003;
  611.   msoShapeDiamond = $00000004;
  612.   msoShapeRoundedRectangle = $00000005;
  613.   msoShapeOctagon = $00000006;
  614.   msoShapeIsoscelesTriangle = $00000007;
  615.   msoShapeRightTriangle = $00000008;
  616.   msoShapeOval = $00000009;
  617.   msoShapeHexagon = $0000000A;
  618.   msoShapeCross = $0000000B;
  619.   msoShapeRegularPentagon = $0000000C;
  620.   msoShapeCan = $0000000D;
  621.   msoShapeCube = $0000000E;
  622.   msoShapeBevel = $0000000F;
  623.   msoShapeFoldedCorner = $00000010;
  624.   msoShapeSmileyFace = $00000011;
  625.   msoShapeDonut = $00000012;
  626.   msoShapeNoSymbol = $00000013;
  627.   msoShapeBlockArc = $00000014;
  628.   msoShapeHeart = $00000015;
  629.   msoShapeLightningBolt = $00000016;
  630.   msoShapeSun = $00000017;
  631.   msoShapeMoon = $00000018;
  632.   msoShapeArc = $00000019;
  633.   msoShapeDoubleBracket = $0000001A;
  634.   msoShapeDoubleBrace = $0000001B;
  635.   msoShapePlaque = $0000001C;
  636.   msoShapeLeftBracket = $0000001D;
  637.   msoShapeRightBracket = $0000001E;
  638.   msoShapeLeftBrace = $0000001F;
  639.   msoShapeRightBrace = $00000020;
  640.   msoShapeRightArrow = $00000021;
  641.   msoShapeLeftArrow = $00000022;
  642.   msoShapeUpArrow = $00000023;
  643.   msoShapeDownArrow = $00000024;
  644.   msoShapeLeftRightArrow = $00000025;
  645.   msoShapeUpDownArrow = $00000026;
  646.   msoShapeQuadArrow = $00000027;
  647.   msoShapeLeftRightUpArrow = $00000028;
  648.   msoShapeBentArrow = $00000029;
  649.   msoShapeUTurnArrow = $0000002A;
  650.   msoShapeLeftUpArrow = $0000002B;
  651.   msoShapeBentUpArrow = $0000002C;
  652.   msoShapeCurvedRightArrow = $0000002D;
  653.   msoShapeCurvedLeftArrow = $0000002E;
  654.   msoShapeCurvedUpArrow = $0000002F;
  655.   msoShapeCurvedDownArrow = $00000030;
  656.   msoShapeStripedRightArrow = $00000031;
  657.   msoShapeNotchedRightArrow = $00000032;
  658.   msoShapePentagon = $00000033;
  659.   msoShapeChevron = $00000034;
  660.   msoShapeRightArrowCallout = $00000035;
  661.   msoShapeLeftArrowCallout = $00000036;
  662.   msoShapeUpArrowCallout = $00000037;
  663.   msoShapeDownArrowCallout = $00000038;
  664.   msoShapeLeftRightArrowCallout = $00000039;
  665.   msoShapeUpDownArrowCallout = $0000003A;
  666.   msoShapeQuadArrowCallout = $0000003B;
  667.   msoShapeCircularArrow = $0000003C;
  668.   msoShapeFlowchartProcess = $0000003D;
  669.   msoShapeFlowchartAlternateProcess = $0000003E;
  670.   msoShapeFlowchartDecision = $0000003F;
  671.   msoShapeFlowchartData = $00000040;
  672.   msoShapeFlowchartPredefinedProcess = $00000041;
  673.   msoShapeFlowchartInternalStorage = $00000042;
  674.   msoShapeFlowchartDocument = $00000043;
  675.   msoShapeFlowchartMultidocument = $00000044;
  676.   msoShapeFlowchartTerminator = $00000045;
  677.   msoShapeFlowchartPreparation = $00000046;
  678.   msoShapeFlowchartManualInput = $00000047;
  679.   msoShapeFlowchartManualOperation = $00000048;
  680.   msoShapeFlowchartConnector = $00000049;
  681.   msoShapeFlowchartOffpageConnector = $0000004A;
  682.   msoShapeFlowchartCard = $0000004B;
  683.   msoShapeFlowchartPunchedTape = $0000004C;
  684.   msoShapeFlowchartSummingJunction = $0000004D;
  685.   msoShapeFlowchartOr = $0000004E;
  686.   msoShapeFlowchartCollate = $0000004F;
  687.   msoShapeFlowchartSort = $00000050;
  688.   msoShapeFlowchartExtract = $00000051;
  689.   msoShapeFlowchartMerge = $00000052;
  690.   msoShapeFlowchartStoredData = $00000053;
  691.   msoShapeFlowchartDelay = $00000054;
  692.   msoShapeFlowchartSequentialAccessStorage = $00000055;
  693.   msoShapeFlowchartMagneticDisk = $00000056;
  694.   msoShapeFlowchartDirectAccessStorage = $00000057;
  695.   msoShapeFlowchartDisplay = $00000058;
  696.   msoShapeExplosion1 = $00000059;
  697.   msoShapeExplosion2 = $0000005A;
  698.   msoShape4pointStar = $0000005B;
  699.   msoShape5pointStar = $0000005C;
  700.   msoShape8pointStar = $0000005D;
  701.   msoShape16pointStar = $0000005E;
  702.   msoShape24pointStar = $0000005F;
  703.   msoShape32pointStar = $00000060;
  704.   msoShapeUpRibbon = $00000061;
  705.   msoShapeDownRibbon = $00000062;
  706.   msoShapeCurvedUpRibbon = $00000063;
  707.   msoShapeCurvedDownRibbon = $00000064;
  708.   msoShapeVerticalScroll = $00000065;
  709.   msoShapeHorizontalScroll = $00000066;
  710.   msoShapeWave = $00000067;
  711.   msoShapeDoubleWave = $00000068;
  712.   msoShapeRectangularCallout = $00000069;
  713.   msoShapeRoundedRectangularCallout = $0000006A;
  714.   msoShapeOvalCallout = $0000006B;
  715.   msoShapeCloudCallout = $0000006C;
  716.   msoShapeLineCallout1 = $0000006D;
  717.   msoShapeLineCallout2 = $0000006E;
  718.   msoShapeLineCallout3 = $0000006F;
  719.   msoShapeLineCallout4 = $00000070;
  720.   msoShapeLineCallout1AccentBar = $00000071;
  721.   msoShapeLineCallout2AccentBar = $00000072;
  722.   msoShapeLineCallout3AccentBar = $00000073;
  723.   msoShapeLineCallout4AccentBar = $00000074;
  724.   msoShapeLineCallout1NoBorder = $00000075;
  725.   msoShapeLineCallout2NoBorder = $00000076;
  726.   msoShapeLineCallout3NoBorder = $00000077;
  727.   msoShapeLineCallout4NoBorder = $00000078;
  728.   msoShapeLineCallout1BorderandAccentBar = $00000079;
  729.   msoShapeLineCallout2BorderandAccentBar = $0000007A;
  730.   msoShapeLineCallout3BorderandAccentBar = $0000007B;
  731.   msoShapeLineCallout4BorderandAccentBar = $0000007C;
  732.   msoShapeActionButtonCustom = $0000007D;
  733.   msoShapeActionButtonHome = $0000007E;
  734.   msoShapeActionButtonHelp = $0000007F;
  735.   msoShapeActionButtonInformation = $00000080;
  736.   msoShapeActionButtonBackorPrevious = $00000081;
  737.   msoShapeActionButtonForwardorNext = $00000082;
  738.   msoShapeActionButtonBeginning = $00000083;
  739.   msoShapeActionButtonEnd = $00000084;
  740.   msoShapeActionButtonReturn = $00000085;
  741.   msoShapeActionButtonDocument = $00000086;
  742.   msoShapeActionButtonSound = $00000087;
  743.   msoShapeActionButtonMovie = $00000088;
  744.   msoShapeBalloon = $00000089;
  745.   msoShapeNotPrimitive = $0000008A;
  746.  
  747. // MsoShapeType constants
  748. type
  749.   MsoShapeType = TOleEnum;
  750. const
  751.   msoShapeTypeMixed = $FFFFFFFE;
  752.   msoAutoShape = $00000001;
  753.   msoCallout = $00000002;
  754.   msoChart = $00000003;
  755.   msoComment = $00000004;
  756.   msoFreeform = $00000005;
  757.   msoGroup = $00000006;
  758.   msoEmbeddedOLEObject = $00000007;
  759.   msoFormControl = $00000008;
  760.   msoLine = $00000009;
  761.   msoLinkedOLEObject = $0000000A;
  762.   msoLinkedPicture = $0000000B;
  763.   msoOLEControlObject = $0000000C;
  764.   msoPicture = $0000000D;
  765.   msoPlaceholder = $0000000E;
  766.   msoTextEffect = $0000000F;
  767.   msoMedia = $00000010;
  768.   msoTextBox = $00000011;
  769.   msoScriptAnchor = $00000012;
  770.   msoTable = $00000013;
  771.  
  772. // MsoFlipCmd constants
  773. type
  774.   MsoFlipCmd = TOleEnum;
  775. const
  776.   msoFlipHorizontal = $00000000;
  777.   msoFlipVertical = $00000001;
  778.  
  779. // MsoTriState constants
  780. type
  781.   MsoTriState = TOleEnum;
  782. const
  783.   msoTrue = $FFFFFFFF;
  784.   msoFalse = $00000000;
  785.   msoCTrue = $00000001;
  786.   msoTriStateToggle = $FFFFFFFD;
  787.   msoTriStateMixed = $FFFFFFFE;
  788.  
  789. // MsoColorType constants
  790. type
  791.   MsoColorType = TOleEnum;
  792. const
  793.   msoColorTypeMixed = $FFFFFFFE;
  794.   msoColorTypeRGB = $00000001;
  795.   msoColorTypeScheme = $00000002;
  796.  
  797. // MsoPictureColorType constants
  798. type
  799.   MsoPictureColorType = TOleEnum;
  800. const
  801.   msoPictureMixed = $FFFFFFFE;
  802.   msoPictureAutomatic = $00000001;
  803.   msoPictureGrayscale = $00000002;
  804.   msoPictureBlackAndWhite = $00000003;
  805.   msoPictureWatermark = $00000004;
  806.  
  807. // MsoCalloutAngleType constants
  808. type
  809.   MsoCalloutAngleType = TOleEnum;
  810. const
  811.   msoCalloutAngleMixed = $FFFFFFFE;
  812.   msoCalloutAngleAutomatic = $00000001;
  813.   msoCalloutAngle30 = $00000002;
  814.   msoCalloutAngle45 = $00000003;
  815.   msoCalloutAngle60 = $00000004;
  816.   msoCalloutAngle90 = $00000005;
  817.  
  818. // MsoCalloutDropType constants
  819. type
  820.   MsoCalloutDropType = TOleEnum;
  821. const
  822.   msoCalloutDropMixed = $FFFFFFFE;
  823.   msoCalloutDropCustom = $00000001;
  824.   msoCalloutDropTop = $00000002;
  825.   msoCalloutDropCenter = $00000003;
  826.   msoCalloutDropBottom = $00000004;
  827.  
  828. // MsoCalloutType constants
  829. type
  830.   MsoCalloutType = TOleEnum;
  831. const
  832.   msoCalloutMixed = $FFFFFFFE;
  833.   msoCalloutOne = $00000001;
  834.   msoCalloutTwo = $00000002;
  835.   msoCalloutThree = $00000003;
  836.   msoCalloutFour = $00000004;
  837.  
  838. // MsoBlackWhiteMode constants
  839. type
  840.   MsoBlackWhiteMode = TOleEnum;
  841. const
  842.   msoBlackWhiteMixed = $FFFFFFFE;
  843.   msoBlackWhiteAutomatic = $00000001;
  844.   msoBlackWhiteGrayScale = $00000002;
  845.   msoBlackWhiteLightGrayScale = $00000003;
  846.   msoBlackWhiteInverseGrayScale = $00000004;
  847.   msoBlackWhiteGrayOutline = $00000005;
  848.   msoBlackWhiteBlackTextAndLine = $00000006;
  849.   msoBlackWhiteHighContrast = $00000007;
  850.   msoBlackWhiteBlack = $00000008;
  851.   msoBlackWhiteWhite = $00000009;
  852.   msoBlackWhiteDontShow = $0000000A;
  853.  
  854. // MsoMixedType constants
  855. type
  856.   MsoMixedType = TOleEnum;
  857. const
  858.   msoIntegerMixed = $00008000;
  859.   msoSingleMixed = $80000000;
  860.  
  861. // MsoTextOrientation constants
  862. type
  863.   MsoTextOrientation = TOleEnum;
  864. const
  865.   msoTextOrientationMixed = $FFFFFFFE;
  866.   msoTextOrientationHorizontal = $00000001;
  867.   msoTextOrientationUpward = $00000002;
  868.   msoTextOrientationDownward = $00000003;
  869.   msoTextOrientationVerticalFarEast = $00000004;
  870.   msoTextOrientationVertical = $00000005;
  871.   msoTextOrientationHorizontalRotatedFarEast = $00000006;
  872.  
  873. // MsoScaleFrom constants
  874. type
  875.   MsoScaleFrom = TOleEnum;
  876. const
  877.   msoScaleFromTopLeft = $00000000;
  878.   msoScaleFromMiddle = $00000001;
  879.   msoScaleFromBottomRight = $00000002;
  880.  
  881. // MsoBarPosition constants
  882. type
  883.   MsoBarPosition = TOleEnum;
  884. const
  885.   msoBarLeft = $00000000;
  886.   msoBarTop = $00000001;
  887.   msoBarRight = $00000002;
  888.   msoBarBottom = $00000003;
  889.   msoBarFloating = $00000004;
  890.   msoBarPopup = $00000005;
  891.   msoBarMenuBar = $00000006;
  892.  
  893. // MsoBarProtection constants
  894. type
  895.   MsoBarProtection = TOleEnum;
  896. const
  897.   msoBarNoProtection = $00000000;
  898.   msoBarNoCustomize = $00000001;
  899.   msoBarNoResize = $00000002;
  900.   msoBarNoMove = $00000004;
  901.   msoBarNoChangeVisible = $00000008;
  902.   msoBarNoChangeDock = $00000010;
  903.   msoBarNoVerticalDock = $00000020;
  904.   msoBarNoHorizontalDock = $00000040;
  905.  
  906. // MsoBarType constants
  907. type
  908.   MsoBarType = TOleEnum;
  909. const
  910.   msoBarTypeNormal = $00000000;
  911.   msoBarTypeMenuBar = $00000001;
  912.   msoBarTypePopup = $00000002;
  913.  
  914. // MsoControlType constants
  915. type
  916.   MsoControlType = TOleEnum;
  917. const
  918.   msoControlCustom = $00000000;
  919.   msoControlButton = $00000001;
  920.   msoControlEdit = $00000002;
  921.   msoControlDropdown = $00000003;
  922.   msoControlComboBox = $00000004;
  923.   msoControlButtonDropdown = $00000005;
  924.   msoControlSplitDropdown = $00000006;
  925.   msoControlOCXDropdown = $00000007;
  926.   msoControlGenericDropdown = $00000008;
  927.   msoControlGraphicDropdown = $00000009;
  928.   msoControlPopup = $0000000A;
  929.   msoControlGraphicPopup = $0000000B;
  930.   msoControlButtonPopup = $0000000C;
  931.   msoControlSplitButtonPopup = $0000000D;
  932.   msoControlSplitButtonMRUPopup = $0000000E;
  933.   msoControlLabel = $0000000F;
  934.   msoControlExpandingGrid = $00000010;
  935.   msoControlSplitExpandingGrid = $00000011;
  936.   msoControlGrid = $00000012;
  937.   msoControlGauge = $00000013;
  938.   msoControlGraphicCombo = $00000014;
  939.   msoControlPane = $00000015;
  940.   msoControlActiveX = $00000016;
  941.  
  942. // MsoButtonState constants
  943. type
  944.   MsoButtonState = TOleEnum;
  945. const
  946.   msoButtonUp = $00000000;
  947.   msoButtonDown = $FFFFFFFF;
  948.   msoButtonMixed = $00000002;
  949.  
  950. // MsoControlOLEUsage constants
  951. type
  952.   MsoControlOLEUsage = TOleEnum;
  953. const
  954.   msoControlOLEUsageNeither = $00000000;
  955.   msoControlOLEUsageServer = $00000001;
  956.   msoControlOLEUsageClient = $00000002;
  957.   msoControlOLEUsageBoth = $00000003;
  958.  
  959. // MsoButtonStyleHidden constants
  960. type
  961.   MsoButtonStyleHidden = TOleEnum;
  962. const
  963.   msoButtonWrapText = $00000004;
  964.   msoButtonTextBelow = $00000008;
  965.  
  966. // MsoButtonStyle constants
  967. type
  968.   MsoButtonStyle = TOleEnum;
  969. const
  970.   msoButtonAutomatic = $00000000;
  971.   msoButtonIcon = $00000001;
  972.   msoButtonCaption = $00000002;
  973.   msoButtonIconAndCaption = $00000003;
  974.   msoButtonIconAndWrapCaption = $00000007;
  975.   msoButtonIconAndCaptionBelow = $0000000B;
  976.   msoButtonWrapCaption = $0000000E;
  977.   msoButtonIconAndWrapCaptionBelow = $0000000F;
  978.  
  979. // MsoComboStyle constants
  980. type
  981.   MsoComboStyle = TOleEnum;
  982. const
  983.   msoComboNormal = $00000000;
  984.   msoComboLabel = $00000001;
  985.  
  986. // MsoOLEMenuGroup constants
  987. type
  988.   MsoOLEMenuGroup = TOleEnum;
  989. const
  990.   msoOLEMenuGroupNone = $FFFFFFFF;
  991.   msoOLEMenuGroupFile = $00000000;
  992.   msoOLEMenuGroupEdit = $00000001;
  993.   msoOLEMenuGroupContainer = $00000002;
  994.   msoOLEMenuGroupObject = $00000003;
  995.   msoOLEMenuGroupWindow = $00000004;
  996.   msoOLEMenuGroupHelp = $00000005;
  997.  
  998. // MsoMenuAnimation constants
  999. type
  1000.   MsoMenuAnimation = TOleEnum;
  1001. const
  1002.   msoMenuAnimationNone = $00000000;
  1003.   msoMenuAnimationRandom = $00000001;
  1004.   msoMenuAnimationUnfold = $00000002;
  1005.   msoMenuAnimationSlide = $00000003;
  1006.  
  1007. // MsoBarRow constants
  1008. type
  1009.   MsoBarRow = TOleEnum;
  1010. const
  1011.   msoBarRowFirst = $00000000;
  1012.   msoBarRowLast = $FFFFFFFF;
  1013.  
  1014. // MsoCommandBarButtonHyperlinkType constants
  1015. type
  1016.   MsoCommandBarButtonHyperlinkType = TOleEnum;
  1017. const
  1018.   msoCommandBarButtonHyperlinkNone = $00000000;
  1019.   msoCommandBarButtonHyperlinkOpen = $00000001;
  1020.   msoCommandBarButtonHyperlinkInsertPicture = $00000002;
  1021.  
  1022. // MsoHyperlinkType constants
  1023. type
  1024.   MsoHyperlinkType = TOleEnum;
  1025. const
  1026.   msoHyperlinkRange = $00000000;
  1027.   msoHyperlinkShape = $00000001;
  1028.   msoHyperlinkInlineShape = $00000002;
  1029.  
  1030. // MsoExtraInfoMethod constants
  1031. type
  1032.   MsoExtraInfoMethod = TOleEnum;
  1033. const
  1034.   msoMethodGet = $00000000;
  1035.   msoMethodPost = $00000001;
  1036.  
  1037. // MsoAnimationType constants
  1038. type
  1039.   MsoAnimationType = TOleEnum;
  1040. const
  1041.   msoAnimationIdle = $00000001;
  1042.   msoAnimationGreeting = $00000002;
  1043.   msoAnimationGoodbye = $00000003;
  1044.   msoAnimationBeginSpeaking = $00000004;
  1045.   msoAnimationRestPose = $00000005;
  1046.   msoAnimationCharacterSuccessMajor = $00000006;
  1047.   msoAnimationGetAttentionMajor = $0000000B;
  1048.   msoAnimationGetAttentionMinor = $0000000C;
  1049.   msoAnimationSearching = $0000000D;
  1050.   msoAnimationPrinting = $00000012;
  1051.   msoAnimationGestureRight = $00000013;
  1052.   msoAnimationWritingNotingSomething = $00000016;
  1053.   msoAnimationWorkingAtSomething = $00000017;
  1054.   msoAnimationThinking = $00000018;
  1055.   msoAnimationSendingMail = $00000019;
  1056.   msoAnimationListensToComputer = $0000001A;
  1057.   msoAnimationDisappear = $0000001F;
  1058.   msoAnimationAppear = $00000020;
  1059.   msoAnimationGetArtsy = $00000064;
  1060.   msoAnimationGetTechy = $00000065;
  1061.   msoAnimationGetWizardy = $00000066;
  1062.   msoAnimationCheckingSomething = $00000067;
  1063.   msoAnimationLookDown = $00000068;
  1064.   msoAnimationLookDownLeft = $00000069;
  1065.   msoAnimationLookDownRight = $0000006A;
  1066.   msoAnimationLookLeft = $0000006B;
  1067.   msoAnimationLookRight = $0000006C;
  1068.   msoAnimationLookUp = $0000006D;
  1069.   msoAnimationLookUpLeft = $0000006E;
  1070.   msoAnimationLookUpRight = $0000006F;
  1071.   msoAnimationSaving = $00000070;
  1072.   msoAnimationGestureDown = $00000071;
  1073.   msoAnimationGestureLeft = $00000072;
  1074.   msoAnimationGestureUp = $00000073;
  1075.   msoAnimationEmptyTrash = $00000074;
  1076.  
  1077. // MsoButtonSetType constants
  1078. type
  1079.   MsoButtonSetType = TOleEnum;
  1080. const
  1081.   msoButtonSetNone = $00000000;
  1082.   msoButtonSetOK = $00000001;
  1083.   msoButtonSetCancel = $00000002;
  1084.   msoButtonSetOkCancel = $00000003;
  1085.   msoButtonSetYesNo = $00000004;
  1086.   msoButtonSetYesNoCancel = $00000005;
  1087.   msoButtonSetBackClose = $00000006;
  1088.   msoButtonSetNextClose = $00000007;
  1089.   msoButtonSetBackNextClose = $00000008;
  1090.   msoButtonSetRetryCancel = $00000009;
  1091.   msoButtonSetAbortRetryIgnore = $0000000A;
  1092.   msoButtonSetSearchClose = $0000000B;
  1093.   msoButtonSetBackNextSnooze = $0000000C;
  1094.   msoButtonSetTipsOptionsClose = $0000000D;
  1095.   msoButtonSetYesAllNoCancel = $0000000E;
  1096.  
  1097. // MsoIconType constants
  1098. type
  1099.   MsoIconType = TOleEnum;
  1100. const
  1101.   msoIconNone = $00000000;
  1102.   msoIconAlert = $00000002;
  1103.   msoIconTip = $00000003;
  1104.   msoIconAlertInfo = $00000004;
  1105.   msoIconAlertWarning = $00000005;
  1106.   msoIconAlertQuery = $00000006;
  1107.   msoIconAlertCritical = $00000007;
  1108.  
  1109. // MsoBalloonType constants
  1110. type
  1111.   MsoBalloonType = TOleEnum;
  1112. const
  1113.   msoBalloonTypeButtons = $00000000;
  1114.   msoBalloonTypeBullets = $00000001;
  1115.   msoBalloonTypeNumbers = $00000002;
  1116.  
  1117. // MsoModeType constants
  1118. type
  1119.   MsoModeType = TOleEnum;
  1120. const
  1121.   msoModeModal = $00000000;
  1122.   msoModeAutoDown = $00000001;
  1123.   msoModeModeless = $00000002;
  1124.  
  1125. // MsoBalloonErrorType constants
  1126. type
  1127.   MsoBalloonErrorType = TOleEnum;
  1128. const
  1129.   msoBalloonErrorNone = $00000000;
  1130.   msoBalloonErrorOther = $00000001;
  1131.   msoBalloonErrorTooBig = $00000002;
  1132.   msoBalloonErrorOutOfMemory = $00000003;
  1133.   msoBalloonErrorBadPictureRef = $00000004;
  1134.   msoBalloonErrorBadReference = $00000005;
  1135.   msoBalloonErrorButtonlessModal = $00000006;
  1136.   msoBalloonErrorButtonModeless = $00000007;
  1137.   msoBalloonErrorBadCharacter = $00000008;
  1138.   msoBalloonErrorCOMFailure = $00000009;
  1139.   msoBalloonErrorCharNotTopmostForModal = $0000000A;
  1140.   msoBalloonErrorTooManyControls = $0000000B;
  1141.  
  1142. // MsoWizardActType constants
  1143. type
  1144.   MsoWizardActType = TOleEnum;
  1145. const
  1146.   msoWizardActInactive = $00000000;
  1147.   msoWizardActActive = $00000001;
  1148.   msoWizardActSuspend = $00000002;
  1149.   msoWizardActResume = $00000003;
  1150.  
  1151. // MsoWizardMsgType constants
  1152. type
  1153.   MsoWizardMsgType = TOleEnum;
  1154. const
  1155.   msoWizardMsgLocalStateOn = $00000001;
  1156.   msoWizardMsgLocalStateOff = $00000002;
  1157.   msoWizardMsgShowHelp = $00000003;
  1158.   msoWizardMsgSuspending = $00000004;
  1159.   msoWizardMsgResuming = $00000005;
  1160.  
  1161. // MsoBalloonButtonType constants
  1162. type
  1163.   MsoBalloonButtonType = TOleEnum;
  1164. const
  1165.   msoBalloonButtonYesToAll = $FFFFFFF1;
  1166.   msoBalloonButtonOptions = $FFFFFFF2;
  1167.   msoBalloonButtonTips = $FFFFFFF3;
  1168.   msoBalloonButtonClose = $FFFFFFF4;
  1169.   msoBalloonButtonSnooze = $FFFFFFF5;
  1170.   msoBalloonButtonSearch = $FFFFFFF6;
  1171.   msoBalloonButtonIgnore = $FFFFFFF7;
  1172.   msoBalloonButtonAbort = $FFFFFFF8;
  1173.   msoBalloonButtonRetry = $FFFFFFF9;
  1174.   msoBalloonButtonNext = $FFFFFFFA;
  1175.   msoBalloonButtonBack = $FFFFFFFB;
  1176.   msoBalloonButtonNo = $FFFFFFFC;
  1177.   msoBalloonButtonYes = $FFFFFFFD;
  1178.   msoBalloonButtonCancel = $FFFFFFFE;
  1179.   msoBalloonButtonOK = $FFFFFFFF;
  1180.   msoBalloonButtonNull = $00000000;
  1181.  
  1182. // DocProperties constants
  1183. type
  1184.   DocProperties = TOleEnum;
  1185. const
  1186.   offPropertyTypeNumber = $00000001;
  1187.   offPropertyTypeBoolean = $00000002;
  1188.   offPropertyTypeDate = $00000003;
  1189.   offPropertyTypeString = $00000004;
  1190.   offPropertyTypeFloat = $00000005;
  1191.  
  1192. // MsoDocProperties constants
  1193. type
  1194.   MsoDocProperties = TOleEnum;
  1195. const
  1196.   msoPropertyTypeNumber = $00000001;
  1197.   msoPropertyTypeBoolean = $00000002;
  1198.   msoPropertyTypeDate = $00000003;
  1199.   msoPropertyTypeString = $00000004;
  1200.   msoPropertyTypeFloat = $00000005;
  1201.  
  1202. // MsoAppLanguageID constants
  1203. type
  1204.   MsoAppLanguageID = TOleEnum;
  1205. const
  1206.   msoLanguageIDInstall = $00000001;
  1207.   msoLanguageIDUI = $00000002;
  1208.   msoLanguageIDHelp = $00000003;
  1209.   msoLanguageIDExeMode = $00000004;
  1210.   msoLanguageIDUIPrevious = $00000005;
  1211.  
  1212. // MsoFarEastLineBreakLanguageID constants
  1213. type
  1214.   MsoFarEastLineBreakLanguageID = TOleEnum;
  1215. const
  1216.   MsoFarEastLineBreakLanguageJapanese = $00000411;
  1217.   MsoFarEastLineBreakLanguageKorean = $00000412;
  1218.   MsoFarEastLineBreakLanguageSimplifiedChinese = $00000804;
  1219.   MsoFarEastLineBreakLanguageTraditionalChinese = $00000404;
  1220.  
  1221. // MsoFeatureInstall constants
  1222. type
  1223.   MsoFeatureInstall = TOleEnum;
  1224. const
  1225.   msoFeatureInstallNone = $00000000;
  1226.   msoFeatureInstallOnDemand = $00000001;
  1227.   msoFeatureInstallOnDemandWithUI = $00000002;
  1228.  
  1229. // MsoScriptLanguage constants
  1230. type
  1231.   MsoScriptLanguage = TOleEnum;
  1232. const
  1233.   msoScriptLanguageJava = $00000001;
  1234.   msoScriptLanguageVisualBasic = $00000002;
  1235.   msoScriptLanguageASP = $00000003;
  1236.   msoScriptLanguageOther = $00000004;
  1237.  
  1238. // MsoScriptLocation constants
  1239. type
  1240.   MsoScriptLocation = TOleEnum;
  1241. const
  1242.   msoScriptLocationInHead = $00000001;
  1243.   msoScriptLocationInBody = $00000002;
  1244.  
  1245. // MsoFileFindOptions constants
  1246. type
  1247.   MsoFileFindOptions = TOleEnum;
  1248. const
  1249.   msoOptionsNew = $00000001;
  1250.   msoOptionsAdd = $00000002;
  1251.   msoOptionsWithin = $00000003;
  1252.  
  1253. // MsoFileFindView constants
  1254. type
  1255.   MsoFileFindView = TOleEnum;
  1256. const
  1257.   msoViewFileInfo = $00000001;
  1258.   msoViewPreview = $00000002;
  1259.   msoViewSummaryInfo = $00000003;
  1260.  
  1261. // MsoFileFindSortBy constants
  1262. type
  1263.   MsoFileFindSortBy = TOleEnum;
  1264. const
  1265.   msoFileFindSortbyAuthor = $00000001;
  1266.   msoFileFindSortbyDateCreated = $00000002;
  1267.   msoFileFindSortbyLastSavedBy = $00000003;
  1268.   msoFileFindSortbyDateSaved = $00000004;
  1269.   msoFileFindSortbyFileName = $00000005;
  1270.   msoFileFindSortbySize = $00000006;
  1271.   msoFileFindSortbyTitle = $00000007;
  1272.  
  1273. // MsoFileFindListBy constants
  1274. type
  1275.   MsoFileFindListBy = TOleEnum;
  1276. const
  1277.   msoListbyName = $00000001;
  1278.   msoListbyTitle = $00000002;
  1279.  
  1280. // MsoLastModified constants
  1281. type
  1282.   MsoLastModified = TOleEnum;
  1283. const
  1284.   msoLastModifiedYesterday = $00000001;
  1285.   msoLastModifiedToday = $00000002;
  1286.   msoLastModifiedLastWeek = $00000003;
  1287.   msoLastModifiedThisWeek = $00000004;
  1288.   msoLastModifiedLastMonth = $00000005;
  1289.   msoLastModifiedThisMonth = $00000006;
  1290.   msoLastModifiedAnyTime = $00000007;
  1291.  
  1292. // MsoSortBy constants
  1293. type
  1294.   MsoSortBy = TOleEnum;
  1295. const
  1296.   msoSortByFileName = $00000001;
  1297.   msoSortBySize = $00000002;
  1298.   msoSortByFileType = $00000003;
  1299.   msoSortByLastModified = $00000004;
  1300.  
  1301. // MsoSortOrder constants
  1302. type
  1303.   MsoSortOrder = TOleEnum;
  1304. const
  1305.   msoSortOrderAscending = $00000001;
  1306.   msoSortOrderDescending = $00000002;
  1307.  
  1308. // MsoConnector constants
  1309. type
  1310.   MsoConnector = TOleEnum;
  1311. const
  1312.   msoConnectorAnd = $00000001;
  1313.   msoConnectorOr = $00000002;
  1314.  
  1315. // MsoCondition constants
  1316. type
  1317.   MsoCondition = TOleEnum;
  1318. const
  1319.   msoConditionFileTypeAllFiles = $00000001;
  1320.   msoConditionFileTypeOfficeFiles = $00000002;
  1321.   msoConditionFileTypeWordDocuments = $00000003;
  1322.   msoConditionFileTypeExcelWorkbooks = $00000004;
  1323.   msoConditionFileTypePowerPointPresentations = $00000005;
  1324.   msoConditionFileTypeBinders = $00000006;
  1325.   msoConditionFileTypeDatabases = $00000007;
  1326.   msoConditionFileTypeTemplates = $00000008;
  1327.   msoConditionIncludes = $00000009;
  1328.   msoConditionIncludesPhrase = $0000000A;
  1329.   msoConditionBeginsWith = $0000000B;
  1330.   msoConditionEndsWith = $0000000C;
  1331.   msoConditionIncludesNearEachOther = $0000000D;
  1332.   msoConditionIsExactly = $0000000E;
  1333.   msoConditionIsNot = $0000000F;
  1334.   msoConditionYesterday = $00000010;
  1335.   msoConditionToday = $00000011;
  1336.   msoConditionTomorrow = $00000012;
  1337.   msoConditionLastWeek = $00000013;
  1338.   msoConditionThisWeek = $00000014;
  1339.   msoConditionNextWeek = $00000015;
  1340.   msoConditionLastMonth = $00000016;
  1341.   msoConditionThisMonth = $00000017;
  1342.   msoConditionNextMonth = $00000018;
  1343.   msoConditionAnytime = $00000019;
  1344.   msoConditionAnytimeBetween = $0000001A;
  1345.   msoConditionOn = $0000001B;
  1346.   msoConditionOnOrAfter = $0000001C;
  1347.   msoConditionOnOrBefore = $0000001D;
  1348.   msoConditionInTheNext = $0000001E;
  1349.   msoConditionInTheLast = $0000001F;
  1350.   msoConditionEquals = $00000020;
  1351.   msoConditionDoesNotEqual = $00000021;
  1352.   msoConditionAnyNumberBetween = $00000022;
  1353.   msoConditionAtMost = $00000023;
  1354.   msoConditionAtLeast = $00000024;
  1355.   msoConditionMoreThan = $00000025;
  1356.   msoConditionLessThan = $00000026;
  1357.   msoConditionIsYes = $00000027;
  1358.   msoConditionIsNo = $00000028;
  1359.  
  1360. // MsoFileType constants
  1361. type
  1362.   MsoFileType = TOleEnum;
  1363. const
  1364.   msoFileTypeAllFiles = $00000001;
  1365.   msoFileTypeOfficeFiles = $00000002;
  1366.   msoFileTypeWordDocuments = $00000003;
  1367.   msoFileTypeExcelWorkbooks = $00000004;
  1368.   msoFileTypePowerPointPresentations = $00000005;
  1369.   msoFileTypeBinders = $00000006;
  1370.   msoFileTypeDatabases = $00000007;
  1371.   msoFileTypeTemplates = $00000008;
  1372.  
  1373. // MsoLanguageID constants
  1374. type
  1375.   MsoLanguageID = TOleEnum;
  1376. const
  1377.   msoLanguageIDMixed = $FFFFFFFE;
  1378.   msoLanguageIDNone = $00000000;
  1379.   msoLanguageIDNoProofing = $00000400;
  1380.   msoLanguageIDAfrikaans = $00000436;
  1381.   msoLanguageIDAlbanian = $0000041C;
  1382.   msoLanguageIDArabicAlgeria = $00001401;
  1383.   msoLanguageIDArabicBahrain = $00003C01;
  1384.   msoLanguageIDArabicEgypt = $00000C01;
  1385.   msoLanguageIDArabicIraq = $00000801;
  1386.   msoLanguageIDArabicJordan = $00002C01;
  1387.   msoLanguageIDArabicKuwait = $00003401;
  1388.   msoLanguageIDArabicLebanon = $00003001;
  1389.   msoLanguageIDArabicLibya = $00001001;
  1390.   msoLanguageIDArabicMorocco = $00001801;
  1391.   msoLanguageIDArabicOman = $00002001;
  1392.   msoLanguageIDArabicQatar = $00004001;
  1393.   msoLanguageIDArabic = $00000401;
  1394.   msoLanguageIDArabicSyria = $00002801;
  1395.   msoLanguageIDArabicTunisia = $00001C01;
  1396.   msoLanguageIDArabicUAE = $00003801;
  1397.   msoLanguageIDArabicYemen = $00002401;
  1398.   msoLanguageIDArmenian = $0000042B;
  1399.   msoLanguageIDAssamese = $0000044D;
  1400.   msoLanguageIDAzeriCyrillic = $0000082C;
  1401.   msoLanguageIDAzeriLatin = $0000042C;
  1402.   msoLanguageIDBasque = $0000042D;
  1403.   msoLanguageIDByelorussian = $00000423;
  1404.   msoLanguageIDBengali = $00000445;
  1405.   msoLanguageIDBulgarian = $00000402;
  1406.   msoLanguageIDBurmese = $00000455;
  1407.   msoLanguageIDCatalan = $00000403;
  1408.   msoLanguageIDChineseHongKong = $00000C04;
  1409.   msoLanguageIDChineseMacao = $00001404;
  1410.   msoLanguageIDSimplifiedChinese = $00000804;
  1411.   msoLanguageIDChineseSingapore = $00001004;
  1412.   msoLanguageIDTraditionalChinese = $00000404;
  1413.   msoLanguageIDCroatian = $0000041A;
  1414.   msoLanguageIDCzech = $00000405;
  1415.   msoLanguageIDDanish = $00000406;
  1416.   msoLanguageIDBelgianDutch = $00000813;
  1417.   msoLanguageIDDutch = $00000413;
  1418.   msoLanguageIDEnglishAUS = $00000C09;
  1419.   msoLanguageIDEnglishBelize = $00002809;
  1420.   msoLanguageIDEnglishCanadian = $00001009;
  1421.   msoLanguageIDEnglishCaribbean = $00002409;
  1422.   msoLanguageIDEnglishIreland = $00001809;
  1423.   msoLanguageIDEnglishJamaica = $00002009;
  1424.   msoLanguageIDEnglishNewZealand = $00001409;
  1425.   msoLanguageIDEnglishPhilippines = $00003409;
  1426.   msoLanguageIDEnglishSouthAfrica = $00001C09;
  1427.   msoLanguageIDEnglishTrinidad = $00002C09;
  1428.   msoLanguageIDEnglishUK = $00000809;
  1429.   msoLanguageIDEnglishUS = $00000409;
  1430.   msoLanguageIDEnglishZimbabwe = $00003009;
  1431.   msoLanguageIDEstonian = $00000425;
  1432.   msoLanguageIDFaeroese = $00000438;
  1433.   msoLanguageIDFarsi = $00000429;
  1434.   msoLanguageIDFinnish = $0000040B;
  1435.   msoLanguageIDBelgianFrench = $0000080C;
  1436.   msoLanguageIDFrenchCameroon = $00002C0C;
  1437.   msoLanguageIDFrenchCanadian = $00000C0C;
  1438.   msoLanguageIDFrenchCotedIvoire = $0000300C;
  1439.   msoLanguageIDFrench = $0000040C;
  1440.   msoLanguageIDFrenchLuxembourg = $0000140C;
  1441.   msoLanguageIDFrenchMali = $0000340C;
  1442.   msoLanguageIDFrenchMonaco = $0000180C;
  1443.   msoLanguageIDFrenchReunion = $0000200C;
  1444.   msoLanguageIDFrenchSenegal = $0000280C;
  1445.   msoLanguageIDSwissFrench = $0000100C;
  1446.   msoLanguageIDFrenchWestIndies = $00001C0C;
  1447.   msoLanguageIDFrenchZaire = $0000240C;
  1448.   msoLanguageIDFrisianNetherlands = $00000462;
  1449.   msoLanguageIDGaelicIreland = $0000083C;
  1450.   msoLanguageIDGaelicScotland = $0000043C;
  1451.   msoLanguageIDGalician = $00000456;
  1452.   msoLanguageIDGeorgian = $00000437;
  1453.   msoLanguageIDGermanAustria = $00000C07;
  1454.   msoLanguageIDGerman = $00000407;
  1455.   msoLanguageIDGermanLiechtenstein = $00001407;
  1456.   msoLanguageIDGermanLuxembourg = $00001007;
  1457.   msoLanguageIDSwissGerman = $00000807;
  1458.   msoLanguageIDGreek = $00000408;
  1459.   msoLanguageIDGujarati = $00000447;
  1460.   msoLanguageIDHebrew = $0000040D;
  1461.   msoLanguageIDHindi = $00000439;
  1462.   msoLanguageIDHungarian = $0000040E;
  1463.   msoLanguageIDIcelandic = $0000040F;
  1464.   msoLanguageIDIndonesian = $00000421;
  1465.   msoLanguageIDItalian = $00000410;
  1466.   msoLanguageIDSwissItalian = $00000810;
  1467.   msoLanguageIDJapanese = $00000411;
  1468.   msoLanguageIDKannada = $0000044B;
  1469.   msoLanguageIDKashmiri = $00000460;
  1470.   msoLanguageIDKazakh = $0000043F;
  1471.   msoLanguageIDKhmer = $00000453;
  1472.   msoLanguageIDKirghiz = $00000440;
  1473.   msoLanguageIDKonkani = $00000457;
  1474.   msoLanguageIDKorean = $00000412;
  1475.   msoLanguageIDLao = $00000454;
  1476.   msoLanguageIDLatvian = $00000426;
  1477.   msoLanguageIDLithuanian = $00000427;
  1478.   msoLanguageIDMacedonian = $0000042F;
  1479.   msoLanguageIDMalaysian = $0000043E;
  1480.   msoLanguageIDMalayBruneiDarussalam = $0000083E;
  1481.   msoLanguageIDMalayalam = $0000044C;
  1482.   msoLanguageIDMaltese = $0000043A;
  1483.   msoLanguageIDManipuri = $00000458;
  1484.   msoLanguageIDMarathi = $0000044E;
  1485.   msoLanguageIDMongolian = $00000450;
  1486.   msoLanguageIDNepali = $00000461;
  1487.   msoLanguageIDNorwegianBokmol = $00000414;
  1488.   msoLanguageIDNorwegianNynorsk = $00000814;
  1489.   msoLanguageIDOriya = $00000448;
  1490.   msoLanguageIDPolish = $00000415;
  1491.   msoLanguageIDBrazilianPortuguese = $00000416;
  1492.   msoLanguageIDPortuguese = $00000816;
  1493.   msoLanguageIDPunjabi = $00000446;
  1494.   msoLanguageIDRhaetoRomanic = $00000417;
  1495.   msoLanguageIDRomanianMoldova = $00000818;
  1496.   msoLanguageIDRomanian = $00000418;
  1497.   msoLanguageIDRussianMoldova = $00000819;
  1498.   msoLanguageIDRussian = $00000419;
  1499.   msoLanguageIDSamiLappish = $0000043B;
  1500.   msoLanguageIDSanskrit = $0000044F;
  1501.   msoLanguageIDSerbianCyrillic = $00000C1A;
  1502.   msoLanguageIDSerbianLatin = $0000081A;
  1503.   msoLanguageIDSesotho = $00000430;
  1504.   msoLanguageIDSindhi = $00000459;
  1505.   msoLanguageIDSlovak = $0000041B;
  1506.   msoLanguageIDSlovenian = $00000424;
  1507.   msoLanguageIDSorbian = $0000042E;
  1508.   msoLanguageIDSpanishArgentina = $00002C0A;
  1509.   msoLanguageIDSpanishBolivia = $0000400A;
  1510.   msoLanguageIDSpanishChile = $0000340A;
  1511.   msoLanguageIDSpanishColombia = $0000240A;
  1512.   msoLanguageIDSpanishCostaRica = $0000140A;
  1513.   msoLanguageIDSpanishDominicanRepublic = $00001C0A;
  1514.   msoLanguageIDSpanishEcuador = $0000300A;
  1515.   msoLanguageIDSpanishElSalvador = $0000440A;
  1516.   msoLanguageIDSpanishGuatemala = $0000100A;
  1517.   msoLanguageIDSpanishHonduras = $0000480A;
  1518.   msoLanguageIDMexicanSpanish = $0000080A;
  1519.   msoLanguageIDSpanishNicaragua = $00004C0A;
  1520.   msoLanguageIDSpanishPanama = $0000180A;
  1521.   msoLanguageIDSpanishParaguay = $00003C0A;
  1522.   msoLanguageIDSpanishPeru = $0000280A;
  1523.   msoLanguageIDSpanishPuertoRico = $0000500A;
  1524.   msoLanguageIDSpanishModernSort = $00000C0A;
  1525.   msoLanguageIDSpanish = $0000040A;
  1526.   msoLanguageIDSpanishUruguay = $0000380A;
  1527.   msoLanguageIDSpanishVenezuela = $0000200A;
  1528.   msoLanguageIDSutu = $00000430;
  1529.   msoLanguageIDSwahili = $00000441;
  1530.   msoLanguageIDSwedishFinland = $0000081D;
  1531.   msoLanguageIDSwedish = $0000041D;
  1532.   msoLanguageIDTajik = $00000428;
  1533.   msoLanguageIDTamil = $00000449;
  1534.   msoLanguageIDTatar = $00000444;
  1535.   msoLanguageIDTelugu = $0000044A;
  1536.   msoLanguageIDThai = $0000041E;
  1537.   msoLanguageIDTibetan = $00000451;
  1538.   msoLanguageIDTsonga = $00000431;
  1539.   msoLanguageIDTswana = $00000432;
  1540.   msoLanguageIDTurkish = $0000041F;
  1541.   msoLanguageIDTurkmen = $00000442;
  1542.   msoLanguageIDUkrainian = $00000422;
  1543.   msoLanguageIDUrdu = $00000420;
  1544.   msoLanguageIDUzbekCyrillic = $00000843;
  1545.   msoLanguageIDUzbekLatin = $00000443;
  1546.   msoLanguageIDVenda = $00000433;
  1547.   msoLanguageIDVietnamese = $0000042A;
  1548.   msoLanguageIDWelsh = $00000452;
  1549.   msoLanguageIDXhosa = $00000434;
  1550.   msoLanguageIDZulu = $00000435;
  1551.  
  1552. // MsoScreenSize constants
  1553. type
  1554.   MsoScreenSize = TOleEnum;
  1555. const
  1556.   msoScreenSize544x376 = $00000000;
  1557.   msoScreenSize640x480 = $00000001;
  1558.   msoScreenSize720x512 = $00000002;
  1559.   msoScreenSize800x600 = $00000003;
  1560.   msoScreenSize1024x768 = $00000004;
  1561.   msoScreenSize1152x882 = $00000005;
  1562.   msoScreenSize1152x900 = $00000006;
  1563.   msoScreenSize1280x1024 = $00000007;
  1564.   msoScreenSize1600x1200 = $00000008;
  1565.   msoScreenSize1800x1440 = $00000009;
  1566.   msoScreenSize1920x1200 = $0000000A;
  1567.  
  1568. // MsoCharacterSet constants
  1569. type
  1570.   MsoCharacterSet = TOleEnum;
  1571. const
  1572.   msoCharacterSetArabic = $00000001;
  1573.   msoCharacterSetCyrillic = $00000002;
  1574.   msoCharacterSetEnglishWesternEuropeanOtherLatinScript = $00000003;
  1575.   msoCharacterSetGreek = $00000004;
  1576.   msoCharacterSetHebrew = $00000005;
  1577.   msoCharacterSetJapanese = $00000006;
  1578.   msoCharacterSetKorean = $00000007;
  1579.   msoCharacterSetMultilingualUnicode = $00000008;
  1580.   msoCharacterSetSimplifiedChinese = $00000009;
  1581.   msoCharacterSetThai = $0000000A;
  1582.   msoCharacterSetTraditionalChinese = $0000000B;
  1583.   msoCharacterSetVietnamese = $0000000C;
  1584.  
  1585. // MsoEncoding constants
  1586. type
  1587.   MsoEncoding = TOleEnum;
  1588. const
  1589.   msoEncodingThai = $0000036A;
  1590.   msoEncodingJapaneseShiftJIS = $000003A4;
  1591.   msoEncodingSimplifiedChineseGBK = $000003A8;
  1592.   msoEncodingKorean = $000003B5;
  1593.   msoEncodingTraditionalChineseBig5 = $000003B6;
  1594.   msoEncodingUnicodeLittleEndian = $000004B0;
  1595.   msoEncodingUnicodeBigEndian = $000004B1;
  1596.   msoEncodingCentralEuropean = $000004E2;
  1597.   msoEncodingCyrillic = $000004E3;
  1598.   msoEncodingWestern = $000004E4;
  1599.   msoEncodingGreek = $000004E5;
  1600.   msoEncodingTurkish = $000004E6;
  1601.   msoEncodingHebrew = $000004E7;
  1602.   msoEncodingArabic = $000004E8;
  1603.   msoEncodingBaltic = $000004E9;
  1604.   msoEncodingVietnamese = $000004EA;
  1605.   msoEncodingAutoDetect = $0000C351;
  1606.   msoEncodingJapaneseAutoDetect = $0000C6F4;
  1607.   msoEncodingSimplifiedChineseAutoDetect = $0000C6F8;
  1608.   msoEncodingKoreanAutoDetect = $0000C705;
  1609.   msoEncodingTraditionalChineseAutoDetect = $0000C706;
  1610.   msoEncodingCyrillicAutoDetect = $0000C833;
  1611.   msoEncodingGreekAutoDetect = $0000C835;
  1612.   msoEncodingArabicAutoDetect = $0000C838;
  1613.   msoEncodingISO88591Latin1 = $00006FAF;
  1614.   msoEncodingISO88592CentralEurope = $00006FB0;
  1615.   msoEncodingISO88593Latin3 = $00006FB1;
  1616.   msoEncodingISO88594Baltic = $00006FB2;
  1617.   msoEncodingISO88595Cyrillic = $00006FB3;
  1618.   msoEncodingISO88596Arabic = $00006FB4;
  1619.   msoEncodingISO88597Greek = $00006FB5;
  1620.   msoEncodingISO88598Hebrew = $00006FB6;
  1621.   msoEncodingISO88599Turkish = $00006FB7;
  1622.   msoEncodingISO885915Latin9 = $00006FBD;
  1623.   msoEncodingISO2022JPNoHalfwidthKatakana = $0000C42C;
  1624.   msoEncodingISO2022JPJISX02021984 = $0000C42D;
  1625.   msoEncodingISO2022JPJISX02011989 = $0000C42E;
  1626.   msoEncodingISO2022KR = $0000C431;
  1627.   msoEncodingISO2022CNTraditionalChinese = $0000C433;
  1628.   msoEncodingISO2022CNSimplifiedChinese = $0000C435;
  1629.   msoEncodingMacRoman = $00002710;
  1630.   msoEncodingMacJapanese = $00002711;
  1631.   msoEncodingMacTraditionalChineseBig5 = $00002712;
  1632.   msoEncodingMacKorean = $00002713;
  1633.   msoEncodingMacArabic = $00002714;
  1634.   msoEncodingMacHebrew = $00002715;
  1635.   msoEncodingMacGreek1 = $00002716;
  1636.   msoEncodingMacCyrillic = $00002717;
  1637.   msoEncodingMacSimplifiedChineseGB2312 = $00002718;
  1638.   msoEncodingMacRomania = $0000271A;
  1639.   msoEncodingMacUkraine = $00002721;
  1640.   msoEncodingMacLatin2 = $0000272D;
  1641.   msoEncodingMacIcelandic = $0000275F;
  1642.   msoEncodingMacTurkish = $00002761;
  1643.   msoEncodingMacCroatia = $00002762;
  1644.   msoEncodingEBCDICUSCanada = $00000025;
  1645.   msoEncodingEBCDICInternational = $000001F4;
  1646.   msoEncodingEBCDICMultilingualROECELatin2 = $00000366;
  1647.   msoEncodingEBCDICGreekModern = $0000036B;
  1648.   msoEncodingEBCDICTurkishLatin5 = $00000402;
  1649.   msoEncodingEBCDICGermany = $00004F31;
  1650.   msoEncodingEBCDICDenmarkNorway = $00004F35;
  1651.   msoEncodingEBCDICFinlandSweden = $00004F36;
  1652.   msoEncodingEBCDICItaly = $00004F38;
  1653.   msoEncodingEBCDICLatinAmericaSpain = $00004F3C;
  1654.   msoEncodingEBCDICUnitedKingdom = $00004F3D;
  1655.   msoEncodingEBCDICJapaneseKatakanaExtended = $00004F42;
  1656.   msoEncodingEBCDICFrance = $00004F49;
  1657.   msoEncodingEBCDICArabic = $00004FC4;
  1658.   msoEncodingEBCDICGreek = $00004FC7;
  1659.   msoEncodingEBCDICHebrew = $00004FC8;
  1660.   msoEncodingEBCDICKoreanExtended = $00005161;
  1661.   msoEncodingEBCDICThai = $00005166;
  1662.   msoEncodingEBCDICIcelandic = $00005187;
  1663.   msoEncodingEBCDICTurkish = $000051A9;
  1664.   msoEncodingEBCDICRussian = $00005190;
  1665.   msoEncodingEBCDICSerbianBulgarian = $00005221;
  1666.   msoEncodingEBCDICJapaneseKatakanaExtendedAndJapanese = $0000C6F2;
  1667.   msoEncodingEBCDICUSCanadaandJapanese = $0000C6F3;
  1668.   msoEncodingEBCDICKoreanExtendedAndKorean = $0000C6F5;
  1669.   msoEncodingEBCDICSimplifiedChineseExtendedAndSimplifiedChinese = $0000C6F7;
  1670.   msoEncodingEBCDICUSCanadaAndTraditionalChinese = $0000C6F9;
  1671.   msoEncodingEBCDICJapaneseLatinExtendedAndJapanese = $0000C6FB;
  1672.   msoEncodingOEMUnitedStates = $000001B5;
  1673.   msoEncodingOEMGreek437G = $000002E1;
  1674.   msoEncodingOEMBaltic = $00000307;
  1675.   msoEncodingOEMMultilingualLatinI = $00000352;
  1676.   msoEncodingOEMMultilingualLatinII = $00000354;
  1677.   msoEncodingOEMCyrillic = $00000357;
  1678.   msoEncodingOEMTurkish = $00000359;
  1679.   msoEncodingOEMPortuguese = $0000035C;
  1680.   msoEncodingOEMIcelandic = $0000035D;
  1681.   msoEncodingOEMHebrew = $0000035E;
  1682.   msoEncodingOEMCanadianFrench = $0000035F;
  1683.   msoEncodingOEMArabic = $00000360;
  1684.   msoEncodingOEMNordic = $00000361;
  1685.   msoEncodingOEMCyrillicII = $00000362;
  1686.   msoEncodingOEMModernGreek = $00000365;
  1687.   msoEncodingEUCJapanese = $0000CADC;
  1688.   msoEncodingEUCChineseSimplifiedChinese = $0000CAE0;
  1689.   msoEncodingEUCKorean = $0000CAED;
  1690.   msoEncodingEUCTaiwaneseTraditionalChinese = $0000CAEE;
  1691.   msoEncodingArabicASMO = $000002C4;
  1692.   msoEncodingArabicTransparentASMO = $000002D0;
  1693.   msoEncodingKoreanJohab = $00000551;
  1694.   msoEncodingTaiwanCNS = $00004E20;
  1695.   msoEncodingTaiwanTCA = $00004E21;
  1696.   msoEncodingTaiwanEten = $00004E22;
  1697.   msoEncodingTaiwanIBM5550 = $00004E23;
  1698.   msoEncodingTaiwanTeleText = $00004E24;
  1699.   msoEncodingTaiwanWang = $00004E25;
  1700.   msoEncodingIA5IRV = $00004E89;
  1701.   msoEncodingIA5German = $00004E8A;
  1702.   msoEncodingIA5Swedish = $00004E8B;
  1703.   msoEncodingIA5Norwegian = $00004E8C;
  1704.   msoEncodingUSASCII = $00004E9F;
  1705.   msoEncodingT61 = $00004F25;
  1706.   msoEncodingISO6937NonSpacingAccent = $00004F2D;
  1707.   msoEncodingKOI8R = $00005182;
  1708.   msoEncodingExtAlphaLowercase = $00005223;
  1709.   msoEncodingKOI8U = $0000556A;
  1710.   msoEncodingEuropa3 = $00007149;
  1711.   msoEncodingHZGBSimplifiedChinese = $0000CEC8;
  1712.   msoEncodingUTF7 = $0000FDE8;
  1713.   msoEncodingUTF8 = $0000FDE9;
  1714.  
  1715. // MsoHTMLProjectOpen constants
  1716. type
  1717.   MsoHTMLProjectOpen = TOleEnum;
  1718. const
  1719.   msoHTMLProjectOpenSourceView = $00000001;
  1720.   msoHTMLProjectOpenTextView = $00000002;
  1721.  
  1722. // MsoHTMLProjectState constants
  1723. type
  1724.   MsoHTMLProjectState = TOleEnum;
  1725. const
  1726.   msoHTMLProjectStateDocumentLocked = $00000001;
  1727.   msoHTMLProjectStateProjectLocked = $00000002;
  1728.   msoHTMLProjectStateDocumentProjectUnlocked = $00000003;
  1729.  
  1730. type
  1731.  
  1732. // *********************************************************************//
  1733. // Forward declaration of interfaces defined in Type Library            //
  1734. // *********************************************************************//
  1735.   IAccessible = interface;
  1736.   IAccessibleDisp = dispinterface;
  1737.   _IMsoDispObj = interface;
  1738.   _IMsoDispObjDisp = dispinterface;
  1739.   _IMsoOleAccDispObj = interface;
  1740.   _IMsoOleAccDispObjDisp = dispinterface;
  1741.   _CommandBars = interface;
  1742.   _CommandBarsDisp = dispinterface;
  1743.   CommandBar = interface;
  1744.   CommandBarDisp = dispinterface;
  1745.   CommandBarControls = interface;
  1746.   CommandBarControlsDisp = dispinterface;
  1747.   CommandBarControl = interface;
  1748.   CommandBarControlDisp = dispinterface;
  1749.   _CommandBarButton = interface;
  1750.   _CommandBarButtonDisp = dispinterface;
  1751.   CommandBarPopup = interface;
  1752.   CommandBarPopupDisp = dispinterface;
  1753.   _CommandBarComboBox = interface;
  1754.   _CommandBarComboBoxDisp = dispinterface;
  1755.   _CommandBarActiveX = interface;
  1756.   _CommandBarActiveXDisp = dispinterface;
  1757.   Adjustments = interface;
  1758.   AdjustmentsDisp = dispinterface;
  1759.   CalloutFormat = interface;
  1760.   CalloutFormatDisp = dispinterface;
  1761.   ColorFormat = interface;
  1762.   ColorFormatDisp = dispinterface;
  1763.   ConnectorFormat = interface;
  1764.   ConnectorFormatDisp = dispinterface;
  1765.   FillFormat = interface;
  1766.   FillFormatDisp = dispinterface;
  1767.   FreeformBuilder = interface;
  1768.   FreeformBuilderDisp = dispinterface;
  1769.   GroupShapes = interface;
  1770.   GroupShapesDisp = dispinterface;
  1771.   LineFormat = interface;
  1772.   LineFormatDisp = dispinterface;
  1773.   ShapeNode = interface;
  1774.   ShapeNodeDisp = dispinterface;
  1775.   ShapeNodes = interface;
  1776.   ShapeNodesDisp = dispinterface;
  1777.   PictureFormat = interface;
  1778.   PictureFormatDisp = dispinterface;
  1779.   ShadowFormat = interface;
  1780.   ShadowFormatDisp = dispinterface;
  1781.   Script = interface;
  1782.   ScriptDisp = dispinterface;
  1783.   Scripts = interface;
  1784.   ScriptsDisp = dispinterface;
  1785.   Shape = interface;
  1786.   ShapeDisp = dispinterface;
  1787.   ShapeRange = interface;
  1788.   ShapeRangeDisp = dispinterface;
  1789.   Shapes = interface;
  1790.   ShapesDisp = dispinterface;
  1791.   TextEffectFormat = interface;
  1792.   TextEffectFormatDisp = dispinterface;
  1793.   TextFrame = interface;
  1794.   TextFrameDisp = dispinterface;
  1795.   ThreeDFormat = interface;
  1796.   ThreeDFormatDisp = dispinterface;
  1797.   IMsoDispCagNotifySink = interface;
  1798.   IMsoDispCagNotifySinkDisp = dispinterface;
  1799.   Balloon = interface;
  1800.   BalloonDisp = dispinterface;
  1801.   BalloonCheckboxes = interface;
  1802.   BalloonCheckboxesDisp = dispinterface;
  1803.   BalloonCheckbox = interface;
  1804.   BalloonCheckboxDisp = dispinterface;
  1805.   BalloonLabels = interface;
  1806.   BalloonLabelsDisp = dispinterface;
  1807.   BalloonLabel = interface;
  1808.   BalloonLabelDisp = dispinterface;
  1809.   AnswerWizardFiles = interface;
  1810.   AnswerWizardFilesDisp = dispinterface;
  1811.   AnswerWizard = interface;
  1812.   AnswerWizardDisp = dispinterface;
  1813.   Assistant = interface;
  1814.   AssistantDisp = dispinterface;
  1815.   DocumentProperty = interface;
  1816.   DocumentProperties = interface;
  1817.   IFoundFiles = interface;
  1818.   IFoundFilesDisp = dispinterface;
  1819.   IFind = interface;
  1820.   IFindDisp = dispinterface;
  1821.   FoundFiles = interface;
  1822.   FoundFilesDisp = dispinterface;
  1823.   PropertyTest = interface;
  1824.   PropertyTestDisp = dispinterface;
  1825.   PropertyTests = interface;
  1826.   PropertyTestsDisp = dispinterface;
  1827.   FileSearch = interface;
  1828.   FileSearchDisp = dispinterface;
  1829.   COMAddIn = interface;
  1830.   COMAddInDisp = dispinterface;
  1831.   COMAddIns = interface;
  1832.   COMAddInsDisp = dispinterface;
  1833.   LanguageSettings = interface;
  1834.   LanguageSettingsDisp = dispinterface;
  1835.   ICommandBarsEvents = interface;
  1836.   ICommandBarsEventsDisp = dispinterface;
  1837.   _CommandBarsEvents = dispinterface;
  1838.   ICommandBarComboBoxEvents = interface;
  1839.   ICommandBarComboBoxEventsDisp = dispinterface;
  1840.   _CommandBarComboBoxEvents = dispinterface;
  1841.   ICommandBarButtonEvents = interface;
  1842.   ICommandBarButtonEventsDisp = dispinterface;
  1843.   _CommandBarButtonEvents = dispinterface;
  1844.   WebPageFont = interface;
  1845.   WebPageFontDisp = dispinterface;
  1846.   WebPageFonts = interface;
  1847.   WebPageFontsDisp = dispinterface;
  1848.   HTMLProjectItem = interface;
  1849.   HTMLProjectItemDisp = dispinterface;
  1850.   HTMLProjectItems = interface;
  1851.   HTMLProjectItemsDisp = dispinterface;
  1852.   HTMLProject = interface;
  1853.   HTMLProjectDisp = dispinterface;
  1854.   MsoDebugOptions = interface;
  1855.   MsoDebugOptionsDisp = dispinterface;
  1856.  
  1857. // *********************************************************************//
  1858. // Declaration of CoClasses defined in Type Library                     //
  1859. // (NOTE: Here we map each CoClass to its Default Interface)            //
  1860. // *********************************************************************//
  1861.   CommandBars = _CommandBars;
  1862.   CommandBarComboBox = _CommandBarComboBox;
  1863.   CommandBarButton = _CommandBarButton;
  1864.  
  1865.  
  1866. // *********************************************************************//
  1867. // Declaration of structures, unions and aliases.                       //
  1868. // *********************************************************************//
  1869.   POleVariant1 = ^OleVariant; {*}
  1870.   PUserType1 = ^TGUID; {*}
  1871.   PShortint1 = ^Shortint; {*}
  1872.   PPShortint1 = ^PShortint1; {*}
  1873.   PUserType2 = ^DISPPARAMS; {*}
  1874.  
  1875.   MsoRGBType = Integer; 
  1876.  
  1877. // *********************************************************************//
  1878. // Interface: IAccessible
  1879. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1880. // GUID:      {618736E0-3C3D-11CF-810C-00AA00389B71}
  1881. // *********************************************************************//
  1882.   IAccessible = interface(IDispatch)
  1883.     ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
  1884.     function Get_accParent: IDispatch; safecall;
  1885.     function Get_accChildCount: Integer; safecall;
  1886.     function Get_accChild(varChild: OleVariant): IDispatch; safecall;
  1887.     function Get_accName(varChild: OleVariant): WideString; safecall;
  1888.     function Get_accValue(varChild: OleVariant): WideString; safecall;
  1889.     function Get_accDescription(varChild: OleVariant): WideString; safecall;
  1890.     function Get_accRole(varChild: OleVariant): OleVariant; safecall;
  1891.     function Get_accState(varChild: OleVariant): OleVariant; safecall;
  1892.     function Get_accHelp(varChild: OleVariant): WideString; safecall;
  1893.     function Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall;
  1894.     function Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall;
  1895.     function Get_accFocus: OleVariant; safecall;
  1896.     function Get_accSelection: OleVariant; safecall;
  1897.     function Get_accDefaultAction(varChild: OleVariant): WideString; safecall;
  1898.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall;
  1899.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  1900.                           out pcyHeight: Integer; varChild: OleVariant); safecall;
  1901.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall;
  1902.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall;
  1903.     procedure accDoDefaultAction(varChild: OleVariant); safecall;
  1904.     procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall;
  1905.     procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall;
  1906.     property accParent: IDispatch read Get_accParent;
  1907.     property accChildCount: Integer read Get_accChildCount;
  1908.     property accChild[varChild: OleVariant]: IDispatch read Get_accChild;
  1909.     property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName;
  1910.     property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue;
  1911.     property accDescription[varChild: OleVariant]: WideString read Get_accDescription;
  1912.     property accRole[varChild: OleVariant]: OleVariant read Get_accRole;
  1913.     property accState[varChild: OleVariant]: OleVariant read Get_accState;
  1914.     property accHelp[varChild: OleVariant]: WideString read Get_accHelp;
  1915.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic;
  1916.     property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut;
  1917.     property accFocus: OleVariant read Get_accFocus;
  1918.     property accSelection: OleVariant read Get_accSelection;
  1919.     property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction;
  1920.   end;
  1921.  
  1922. // *********************************************************************//
  1923. // DispIntf:  IAccessibleDisp
  1924. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  1925. // GUID:      {618736E0-3C3D-11CF-810C-00AA00389B71}
  1926. // *********************************************************************//
  1927.   IAccessibleDisp = dispinterface
  1928.     ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
  1929.     property accParent: IDispatch readonly dispid -5000;
  1930.     property accChildCount: Integer readonly dispid -5001;
  1931.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  1932.     property accName[varChild: OleVariant]: WideString dispid -5003;
  1933.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  1934.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  1935.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  1936.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  1937.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  1938.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  1939.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  1940.     property accFocus: OleVariant readonly dispid -5011;
  1941.     property accSelection: OleVariant readonly dispid -5012;
  1942.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  1943.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  1944.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  1945.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  1946.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  1947.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  1948.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  1949.   end;
  1950.  
  1951. // *********************************************************************//
  1952. // Interface: _IMsoDispObj
  1953. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1954. // GUID:      {000C0300-0000-0000-C000-000000000046}
  1955. // *********************************************************************//
  1956.   _IMsoDispObj = interface(IDispatch)
  1957.     ['{000C0300-0000-0000-C000-000000000046}']
  1958.     function Get_Application_: IDispatch; safecall;
  1959.     function Get_Creator: Integer; safecall;
  1960.     property Application_: IDispatch read Get_Application_;
  1961.     property Creator: Integer read Get_Creator;
  1962.   end;
  1963.  
  1964. // *********************************************************************//
  1965. // DispIntf:  _IMsoDispObjDisp
  1966. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1967. // GUID:      {000C0300-0000-0000-C000-000000000046}
  1968. // *********************************************************************//
  1969.   _IMsoDispObjDisp = dispinterface
  1970.     ['{000C0300-0000-0000-C000-000000000046}']
  1971.     property Application_: IDispatch readonly dispid 1610743808;
  1972.     property Creator: Integer readonly dispid 1610743809;
  1973.   end;
  1974.  
  1975. // *********************************************************************//
  1976. // Interface: _IMsoOleAccDispObj
  1977. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1978. // GUID:      {000C0301-0000-0000-C000-000000000046}
  1979. // *********************************************************************//
  1980.   _IMsoOleAccDispObj = interface(IAccessible)
  1981.     ['{000C0301-0000-0000-C000-000000000046}']
  1982.     function Get_Application_: IDispatch; safecall;
  1983.     function Get_Creator: Integer; safecall;
  1984.     property Application_: IDispatch read Get_Application_;
  1985.     property Creator: Integer read Get_Creator;
  1986.   end;
  1987.  
  1988. // *********************************************************************//
  1989. // DispIntf:  _IMsoOleAccDispObjDisp
  1990. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  1991. // GUID:      {000C0301-0000-0000-C000-000000000046}
  1992. // *********************************************************************//
  1993.   _IMsoOleAccDispObjDisp = dispinterface
  1994.     ['{000C0301-0000-0000-C000-000000000046}']
  1995.     property Application_: IDispatch readonly dispid 1610809344;
  1996.     property Creator: Integer readonly dispid 1610809345;
  1997.     property accParent: IDispatch readonly dispid -5000;
  1998.     property accChildCount: Integer readonly dispid -5001;
  1999.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  2000.     property accName[varChild: OleVariant]: WideString dispid -5003;
  2001.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  2002.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  2003.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  2004.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  2005.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  2006.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  2007.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  2008.     property accFocus: OleVariant readonly dispid -5011;
  2009.     property accSelection: OleVariant readonly dispid -5012;
  2010.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  2011.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  2012.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  2013.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  2014.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  2015.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  2016.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  2017.   end;
  2018.  
  2019. // *********************************************************************//
  2020. // Interface: _CommandBars
  2021. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2022. // GUID:      {000C0302-0000-0000-C000-000000000046}
  2023. // *********************************************************************//
  2024.   _CommandBars = interface(_IMsoDispObj)
  2025.     ['{000C0302-0000-0000-C000-000000000046}']
  2026.     function Get_ActionControl: CommandBarControl; safecall;
  2027.     function Get_ActiveMenuBar: CommandBar; safecall;
  2028.     function Add(Name: OleVariant; Position: OleVariant; MenuBar: OleVariant; Temporary: OleVariant): CommandBar; safecall;
  2029.     function Get_Count: SYSINT; safecall;
  2030.     function Get_DisplayTooltips: WordBool; safecall;
  2031.     procedure Set_DisplayTooltips(pvarfDisplayTooltips: WordBool); safecall;
  2032.     function Get_DisplayKeysInTooltips: WordBool; safecall;
  2033.     procedure Set_DisplayKeysInTooltips(pvarfDisplayKeys: WordBool); safecall;
  2034.     function FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant): CommandBarControl; safecall;
  2035.     function Get_Item(Index: OleVariant): CommandBar; safecall;
  2036.     function Get_LargeButtons: WordBool; safecall;
  2037.     procedure Set_LargeButtons(pvarfLargeButtons: WordBool); safecall;
  2038.     function Get_MenuAnimationStyle: MsoMenuAnimation; safecall;
  2039.     procedure Set_MenuAnimationStyle(pma: MsoMenuAnimation); safecall;
  2040.     function Get__NewEnum: IUnknown; safecall;
  2041.     function Get_Parent: IDispatch; safecall;
  2042.     procedure ReleaseFocus; safecall;
  2043.     function Get_IdsString(ids: SYSINT; out pbstrName: WideString): SYSINT; safecall;
  2044.     function Get_TmcGetName(tmc: SYSINT; out pbstrName: WideString): SYSINT; safecall;
  2045.     function Get_AdaptiveMenus: WordBool; safecall;
  2046.     procedure Set_AdaptiveMenus(pvarfAdaptiveMenus: WordBool); safecall;
  2047.     function FindControls(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant): CommandBarControls; safecall;
  2048.     function AddEx(TbidOrName: OleVariant; Position: OleVariant; MenuBar: OleVariant; 
  2049.                    Temporary: OleVariant; TbtrProtection: OleVariant): CommandBar; safecall;
  2050.     function Get_DisplayFonts: WordBool; safecall;
  2051.     procedure Set_DisplayFonts(pvarfDisplayFonts: WordBool); safecall;
  2052.     property ActionControl: CommandBarControl read Get_ActionControl;
  2053.     property ActiveMenuBar: CommandBar read Get_ActiveMenuBar;
  2054.     property Count: SYSINT read Get_Count;
  2055.     property DisplayTooltips: WordBool read Get_DisplayTooltips write Set_DisplayTooltips;
  2056.     property DisplayKeysInTooltips: WordBool read Get_DisplayKeysInTooltips write Set_DisplayKeysInTooltips;
  2057.     property Item[Index: OleVariant]: CommandBar read Get_Item; default;
  2058.     property LargeButtons: WordBool read Get_LargeButtons write Set_LargeButtons;
  2059.     property MenuAnimationStyle: MsoMenuAnimation read Get_MenuAnimationStyle write Set_MenuAnimationStyle;
  2060.     property _NewEnum: IUnknown read Get__NewEnum;
  2061.     property Parent: IDispatch read Get_Parent;
  2062.     property IdsString[ids: SYSINT; out pbstrName: WideString]: SYSINT read Get_IdsString;
  2063.     property TmcGetName[tmc: SYSINT; out pbstrName: WideString]: SYSINT read Get_TmcGetName;
  2064.     property AdaptiveMenus: WordBool read Get_AdaptiveMenus write Set_AdaptiveMenus;
  2065.     property DisplayFonts: WordBool read Get_DisplayFonts write Set_DisplayFonts;
  2066.   end;
  2067.  
  2068. // *********************************************************************//
  2069. // DispIntf:  _CommandBarsDisp
  2070. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2071. // GUID:      {000C0302-0000-0000-C000-000000000046}
  2072. // *********************************************************************//
  2073.   _CommandBarsDisp = dispinterface
  2074.     ['{000C0302-0000-0000-C000-000000000046}']
  2075.     property ActionControl: CommandBarControl readonly dispid 1610809344;
  2076.     property ActiveMenuBar: CommandBar readonly dispid 1610809345;
  2077.     function Add(Name: OleVariant; Position: OleVariant; MenuBar: OleVariant; Temporary: OleVariant): CommandBar; dispid 1610809346;
  2078.     property Count: SYSINT readonly dispid 1610809347;
  2079.     property DisplayTooltips: WordBool dispid 1610809348;
  2080.     property DisplayKeysInTooltips: WordBool dispid 1610809350;
  2081.     function FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant): CommandBarControl; dispid 1610809352;
  2082.     property Item[Index: OleVariant]: CommandBar readonly dispid 0; default;
  2083.     property LargeButtons: WordBool dispid 1610809354;
  2084.     property MenuAnimationStyle: MsoMenuAnimation dispid 1610809356;
  2085.     property _NewEnum: IUnknown readonly dispid -4;
  2086.     property Parent: IDispatch readonly dispid 1610809359;
  2087.     procedure ReleaseFocus; dispid 1610809360;
  2088.     property IdsString[ids: SYSINT; out pbstrName: WideString]: SYSINT readonly dispid 1610809361;
  2089.     property TmcGetName[tmc: SYSINT; out pbstrName: WideString]: SYSINT readonly dispid 1610809362;
  2090.     property AdaptiveMenus: WordBool dispid 1610809363;
  2091.     function FindControls(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant): CommandBarControls; dispid 1610809365;
  2092.     function AddEx(TbidOrName: OleVariant; Position: OleVariant; MenuBar: OleVariant; 
  2093.                    Temporary: OleVariant; TbtrProtection: OleVariant): CommandBar; dispid 1610809366;
  2094.     property DisplayFonts: WordBool dispid 1610809367;
  2095.     property Application_: IDispatch readonly dispid 1610743808;
  2096.     property Creator: Integer readonly dispid 1610743809;
  2097.   end;
  2098.  
  2099. // *********************************************************************//
  2100. // Interface: CommandBar
  2101. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2102. // GUID:      {000C0304-0000-0000-C000-000000000046}
  2103. // *********************************************************************//
  2104.   CommandBar = interface(_IMsoOleAccDispObj)
  2105.     ['{000C0304-0000-0000-C000-000000000046}']
  2106.     function Get_BuiltIn: WordBool; safecall;
  2107.     function Get_Context: WideString; safecall;
  2108.     procedure Set_Context(const pbstrContext: WideString); safecall;
  2109.     function Get_Controls_: CommandBarControls; safecall;
  2110.     procedure Delete; safecall;
  2111.     function Get_Enabled: WordBool; safecall;
  2112.     procedure Set_Enabled(pvarfEnabled: WordBool); safecall;
  2113.     function FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant; 
  2114.                          Recursive: OleVariant): CommandBarControl; safecall;
  2115.     function Get_Height: SYSINT; safecall;
  2116.     procedure Set_Height(pdy: SYSINT); safecall;
  2117.     function Get_Index: SYSINT; safecall;
  2118.     function Get_InstanceId: Integer; safecall;
  2119.     function Get_Left: SYSINT; safecall;
  2120.     procedure Set_Left(pxpLeft: SYSINT); safecall;
  2121.     function Get_Name: WideString; safecall;
  2122.     procedure Set_Name(const pbstrName: WideString); safecall;
  2123.     function Get_NameLocal: WideString; safecall;
  2124.     procedure Set_NameLocal(const pbstrNameLocal: WideString); safecall;
  2125.     function Get_Parent: IDispatch; safecall;
  2126.     function Get_Position: MsoBarPosition; safecall;
  2127.     procedure Set_Position(ppos: MsoBarPosition); safecall;
  2128.     function Get_RowIndex: SYSINT; safecall;
  2129.     procedure Set_RowIndex(piRow: SYSINT); safecall;
  2130.     function Get_Protection: MsoBarProtection; safecall;
  2131.     procedure Set_Protection(pprot: MsoBarProtection); safecall;
  2132.     procedure Reset; safecall;
  2133.     procedure ShowPopup(x: OleVariant; y: OleVariant); safecall;
  2134.     function Get_Top: SYSINT; safecall;
  2135.     procedure Set_Top(pypTop: SYSINT); safecall;
  2136.     function Get_Type_: MsoBarType; safecall;
  2137.     function Get_Visible: WordBool; safecall;
  2138.     procedure Set_Visible(pvarfVisible: WordBool); safecall;
  2139.     function Get_Width: SYSINT; safecall;
  2140.     procedure Set_Width(pdx: SYSINT); safecall;
  2141.     function Get_AdaptiveMenu: WordBool; safecall;
  2142.     procedure Set_AdaptiveMenu(pvarfAdaptiveMenu: WordBool); safecall;
  2143.     property BuiltIn: WordBool read Get_BuiltIn;
  2144.     property Context: WideString read Get_Context write Set_Context;
  2145.     property Controls_: CommandBarControls read Get_Controls_;
  2146.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2147.     property Height: SYSINT read Get_Height write Set_Height;
  2148.     property Index: SYSINT read Get_Index;
  2149.     property InstanceId: Integer read Get_InstanceId;
  2150.     property Left: SYSINT read Get_Left write Set_Left;
  2151.     property Name: WideString read Get_Name write Set_Name;
  2152.     property NameLocal: WideString read Get_NameLocal write Set_NameLocal;
  2153.     property Parent: IDispatch read Get_Parent;
  2154.     property Position: MsoBarPosition read Get_Position write Set_Position;
  2155.     property RowIndex: SYSINT read Get_RowIndex write Set_RowIndex;
  2156.     property Protection: MsoBarProtection read Get_Protection write Set_Protection;
  2157.     property Top: SYSINT read Get_Top write Set_Top;
  2158.     property Type_: MsoBarType read Get_Type_;
  2159.     property Visible: WordBool read Get_Visible write Set_Visible;
  2160.     property Width: SYSINT read Get_Width write Set_Width;
  2161.     property AdaptiveMenu: WordBool read Get_AdaptiveMenu write Set_AdaptiveMenu;
  2162.   end;
  2163.  
  2164. // *********************************************************************//
  2165. // DispIntf:  CommandBarDisp
  2166. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2167. // GUID:      {000C0304-0000-0000-C000-000000000046}
  2168. // *********************************************************************//
  2169.   CommandBarDisp = dispinterface
  2170.     ['{000C0304-0000-0000-C000-000000000046}']
  2171.     property BuiltIn: WordBool readonly dispid 1610874880;
  2172.     property Context: WideString dispid 1610874881;
  2173.     property Controls_: CommandBarControls readonly dispid 1610874883;
  2174.     procedure Delete; dispid 1610874884;
  2175.     property Enabled: WordBool dispid 1610874885;
  2176.     function FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant; 
  2177.                          Recursive: OleVariant): CommandBarControl; dispid 1610874887;
  2178.     property Height: SYSINT dispid 1610874888;
  2179.     property Index: SYSINT readonly dispid 1610874890;
  2180.     property InstanceId: Integer readonly dispid 1610874891;
  2181.     property Left: SYSINT dispid 1610874892;
  2182.     property Name: WideString dispid 1610874894;
  2183.     property NameLocal: WideString dispid 1610874896;
  2184.     property Parent: IDispatch readonly dispid 1610874898;
  2185.     property Position: MsoBarPosition dispid 1610874899;
  2186.     property RowIndex: SYSINT dispid 1610874901;
  2187.     property Protection: MsoBarProtection dispid 1610874903;
  2188.     procedure Reset; dispid 1610874905;
  2189.     procedure ShowPopup(x: OleVariant; y: OleVariant); dispid 1610874906;
  2190.     property Top: SYSINT dispid 1610874907;
  2191.     property Type_: MsoBarType readonly dispid 1610874909;
  2192.     property Visible: WordBool dispid 1610874910;
  2193.     property Width: SYSINT dispid 1610874912;
  2194.     property AdaptiveMenu: WordBool dispid 1610874914;
  2195.     property Application_: IDispatch readonly dispid 1610809344;
  2196.     property Creator: Integer readonly dispid 1610809345;
  2197.     property accParent: IDispatch readonly dispid -5000;
  2198.     property accChildCount: Integer readonly dispid -5001;
  2199.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  2200.     property accName[varChild: OleVariant]: WideString dispid -5003;
  2201.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  2202.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  2203.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  2204.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  2205.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  2206.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  2207.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  2208.     property accFocus: OleVariant readonly dispid -5011;
  2209.     property accSelection: OleVariant readonly dispid -5012;
  2210.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  2211.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  2212.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  2213.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  2214.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  2215.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  2216.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  2217.   end;
  2218.  
  2219. // *********************************************************************//
  2220. // Interface: CommandBarControls
  2221. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2222. // GUID:      {000C0306-0000-0000-C000-000000000046}
  2223. // *********************************************************************//
  2224.   CommandBarControls = interface(_IMsoDispObj)
  2225.     ['{000C0306-0000-0000-C000-000000000046}']
  2226.     function Add(Type_: OleVariant; Id: OleVariant; Parameter: OleVariant; Before: OleVariant; 
  2227.                  Temporary: OleVariant): CommandBarControl; safecall;
  2228.     function Get_Count: SYSINT; safecall;
  2229.     function Get_Item(Index: OleVariant): CommandBarControl; safecall;
  2230.     function Get__NewEnum: IUnknown; safecall;
  2231.     function Get_Parent: CommandBar; safecall;
  2232.     property Count: SYSINT read Get_Count;
  2233.     property Item[Index: OleVariant]: CommandBarControl read Get_Item; default;
  2234.     property _NewEnum: IUnknown read Get__NewEnum;
  2235.     property Parent: CommandBar read Get_Parent;
  2236.   end;
  2237.  
  2238. // *********************************************************************//
  2239. // DispIntf:  CommandBarControlsDisp
  2240. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2241. // GUID:      {000C0306-0000-0000-C000-000000000046}
  2242. // *********************************************************************//
  2243.   CommandBarControlsDisp = dispinterface
  2244.     ['{000C0306-0000-0000-C000-000000000046}']
  2245.     function Add(Type_: OleVariant; Id: OleVariant; Parameter: OleVariant; Before: OleVariant; 
  2246.                  Temporary: OleVariant): CommandBarControl; dispid 1610809344;
  2247.     property Count: SYSINT readonly dispid 1610809345;
  2248.     property Item[Index: OleVariant]: CommandBarControl readonly dispid 0; default;
  2249.     property _NewEnum: IUnknown readonly dispid -4;
  2250.     property Parent: CommandBar readonly dispid 1610809348;
  2251.     property Application_: IDispatch readonly dispid 1610743808;
  2252.     property Creator: Integer readonly dispid 1610743809;
  2253.   end;
  2254.  
  2255. // *********************************************************************//
  2256. // Interface: CommandBarControl
  2257. // Flags:     (4416) Dual OleAutomation Dispatchable
  2258. // GUID:      {000C0308-0000-0000-C000-000000000046}
  2259. // *********************************************************************//
  2260.   CommandBarControl = interface(_IMsoOleAccDispObj)
  2261.     ['{000C0308-0000-0000-C000-000000000046}']
  2262.     function Get_BeginGroup: WordBool; safecall;
  2263.     procedure Set_BeginGroup(pvarfBeginGroup: WordBool); safecall;
  2264.     function Get_BuiltIn: WordBool; safecall;
  2265.     function Get_Caption: WideString; safecall;
  2266.     procedure Set_Caption(const pbstrCaption: WideString); safecall;
  2267.     function Get_Control: IDispatch; safecall;
  2268.     function Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; safecall;
  2269.     procedure Delete(Temporary: OleVariant); safecall;
  2270.     function Get_DescriptionText: WideString; safecall;
  2271.     procedure Set_DescriptionText(const pbstrText: WideString); safecall;
  2272.     function Get_Enabled: WordBool; safecall;
  2273.     procedure Set_Enabled(pvarfEnabled: WordBool); safecall;
  2274.     procedure Execute; safecall;
  2275.     function Get_Height: SYSINT; safecall;
  2276.     procedure Set_Height(pdy: SYSINT); safecall;
  2277.     function Get_HelpContextId: SYSINT; safecall;
  2278.     procedure Set_HelpContextId(pid: SYSINT); safecall;
  2279.     function Get_HelpFile: WideString; safecall;
  2280.     procedure Set_HelpFile(const pbstrFilename: WideString); safecall;
  2281.     function Get_Id: SYSINT; safecall;
  2282.     function Get_Index: SYSINT; safecall;
  2283.     function Get_InstanceId: Integer; safecall;
  2284.     function Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; safecall;
  2285.     function Get_Left: SYSINT; safecall;
  2286.     function Get_OLEUsage: MsoControlOLEUsage; safecall;
  2287.     procedure Set_OLEUsage(pcou: MsoControlOLEUsage); safecall;
  2288.     function Get_OnAction: WideString; safecall;
  2289.     procedure Set_OnAction(const pbstrOnAction: WideString); safecall;
  2290.     function Get_Parent: CommandBar; safecall;
  2291.     function Get_Parameter: WideString; safecall;
  2292.     procedure Set_Parameter(const pbstrParam: WideString); safecall;
  2293.     function Get_Priority: SYSINT; safecall;
  2294.     procedure Set_Priority(pnPri: SYSINT); safecall;
  2295.     procedure Reset; safecall;
  2296.     procedure SetFocus; safecall;
  2297.     function Get_Tag: WideString; safecall;
  2298.     procedure Set_Tag(const pbstrTag: WideString); safecall;
  2299.     function Get_TooltipText: WideString; safecall;
  2300.     procedure Set_TooltipText(const pbstrTooltip: WideString); safecall;
  2301.     function Get_Top: SYSINT; safecall;
  2302.     function Get_Type_: MsoControlType; safecall;
  2303.     function Get_Visible: WordBool; safecall;
  2304.     procedure Set_Visible(pvarfVisible: WordBool); safecall;
  2305.     function Get_Width: SYSINT; safecall;
  2306.     procedure Set_Width(pdx: SYSINT); safecall;
  2307.     function Get_IsPriorityDropped: WordBool; safecall;
  2308.     procedure Reserved1; safecall;
  2309.     procedure Reserved2; safecall;
  2310.     procedure Reserved3; safecall;
  2311.     procedure Reserved4; safecall;
  2312.     procedure Reserved5; safecall;
  2313.     procedure Reserved6; safecall;
  2314.     procedure Reserved7; safecall;
  2315.     property BeginGroup: WordBool read Get_BeginGroup write Set_BeginGroup;
  2316.     property BuiltIn: WordBool read Get_BuiltIn;
  2317.     property Caption: WideString read Get_Caption write Set_Caption;
  2318.     property Control: IDispatch read Get_Control;
  2319.     property DescriptionText: WideString read Get_DescriptionText write Set_DescriptionText;
  2320.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2321.     property Height: SYSINT read Get_Height write Set_Height;
  2322.     property HelpContextId: SYSINT read Get_HelpContextId write Set_HelpContextId;
  2323.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  2324.     property Id: SYSINT read Get_Id;
  2325.     property Index: SYSINT read Get_Index;
  2326.     property InstanceId: Integer read Get_InstanceId;
  2327.     property Left: SYSINT read Get_Left;
  2328.     property OLEUsage: MsoControlOLEUsage read Get_OLEUsage write Set_OLEUsage;
  2329.     property OnAction: WideString read Get_OnAction write Set_OnAction;
  2330.     property Parent: CommandBar read Get_Parent;
  2331.     property Parameter: WideString read Get_Parameter write Set_Parameter;
  2332.     property Priority: SYSINT read Get_Priority write Set_Priority;
  2333.     property Tag: WideString read Get_Tag write Set_Tag;
  2334.     property TooltipText: WideString read Get_TooltipText write Set_TooltipText;
  2335.     property Top: SYSINT read Get_Top;
  2336.     property Type_: MsoControlType read Get_Type_;
  2337.     property Visible: WordBool read Get_Visible write Set_Visible;
  2338.     property Width: SYSINT read Get_Width write Set_Width;
  2339.     property IsPriorityDropped: WordBool read Get_IsPriorityDropped;
  2340.   end;
  2341.  
  2342. // *********************************************************************//
  2343. // DispIntf:  CommandBarControlDisp
  2344. // Flags:     (4416) Dual OleAutomation Dispatchable
  2345. // GUID:      {000C0308-0000-0000-C000-000000000046}
  2346. // *********************************************************************//
  2347.   CommandBarControlDisp = dispinterface
  2348.     ['{000C0308-0000-0000-C000-000000000046}']
  2349.     property BeginGroup: WordBool dispid 1610874880;
  2350.     property BuiltIn: WordBool readonly dispid 1610874882;
  2351.     property Caption: WideString dispid 1610874883;
  2352.     property Control: IDispatch readonly dispid 1610874885;
  2353.     function Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874886;
  2354.     procedure Delete(Temporary: OleVariant); dispid 1610874887;
  2355.     property DescriptionText: WideString dispid 1610874888;
  2356.     property Enabled: WordBool dispid 1610874890;
  2357.     procedure Execute; dispid 1610874892;
  2358.     property Height: SYSINT dispid 1610874893;
  2359.     property HelpContextId: SYSINT dispid 1610874895;
  2360.     property HelpFile: WideString dispid 1610874897;
  2361.     property Id: SYSINT readonly dispid 1610874899;
  2362.     property Index: SYSINT readonly dispid 1610874900;
  2363.     property InstanceId: Integer readonly dispid 1610874901;
  2364.     function Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874902;
  2365.     property Left: SYSINT readonly dispid 1610874903;
  2366.     property OLEUsage: MsoControlOLEUsage dispid 1610874904;
  2367.     property OnAction: WideString dispid 1610874906;
  2368.     property Parent: CommandBar readonly dispid 1610874908;
  2369.     property Parameter: WideString dispid 1610874909;
  2370.     property Priority: SYSINT dispid 1610874911;
  2371.     procedure Reset; dispid 1610874913;
  2372.     procedure SetFocus; dispid 1610874914;
  2373.     property Tag: WideString dispid 1610874915;
  2374.     property TooltipText: WideString dispid 1610874917;
  2375.     property Top: SYSINT readonly dispid 1610874919;
  2376.     property Type_: MsoControlType readonly dispid 1610874920;
  2377.     property Visible: WordBool dispid 1610874921;
  2378.     property Width: SYSINT dispid 1610874923;
  2379.     property IsPriorityDropped: WordBool readonly dispid 1610874925;
  2380.     procedure Reserved1; dispid 1610874926;
  2381.     procedure Reserved2; dispid 1610874927;
  2382.     procedure Reserved3; dispid 1610874928;
  2383.     procedure Reserved4; dispid 1610874929;
  2384.     procedure Reserved5; dispid 1610874930;
  2385.     procedure Reserved6; dispid 1610874931;
  2386.     procedure Reserved7; dispid 1610874932;
  2387.     property Application_: IDispatch readonly dispid 1610809344;
  2388.     property Creator: Integer readonly dispid 1610809345;
  2389.     property accParent: IDispatch readonly dispid -5000;
  2390.     property accChildCount: Integer readonly dispid -5001;
  2391.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  2392.     property accName[varChild: OleVariant]: WideString dispid -5003;
  2393.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  2394.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  2395.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  2396.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  2397.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  2398.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  2399.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  2400.     property accFocus: OleVariant readonly dispid -5011;
  2401.     property accSelection: OleVariant readonly dispid -5012;
  2402.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  2403.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  2404.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  2405.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  2406.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  2407.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  2408.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  2409.   end;
  2410.  
  2411. // *********************************************************************//
  2412. // Interface: _CommandBarButton
  2413. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2414. // GUID:      {000C030E-0000-0000-C000-000000000046}
  2415. // *********************************************************************//
  2416.   _CommandBarButton = interface(CommandBarControl)
  2417.     ['{000C030E-0000-0000-C000-000000000046}']
  2418.     function Get_BuiltInFace: WordBool; safecall;
  2419.     procedure Set_BuiltInFace(pvarfBuiltIn: WordBool); safecall;
  2420.     procedure CopyFace; safecall;
  2421.     function Get_FaceId: SYSINT; safecall;
  2422.     procedure Set_FaceId(pid: SYSINT); safecall;
  2423.     procedure PasteFace; safecall;
  2424.     function Get_ShortcutText: WideString; safecall;
  2425.     procedure Set_ShortcutText(const pbstrText: WideString); safecall;
  2426.     function Get_State: MsoButtonState; safecall;
  2427.     procedure Set_State(pstate: MsoButtonState); safecall;
  2428.     function Get_Style: MsoButtonStyle; safecall;
  2429.     procedure Set_Style(pstyle: MsoButtonStyle); safecall;
  2430.     function Get_HyperlinkType: MsoCommandBarButtonHyperlinkType; safecall;
  2431.     procedure Set_HyperlinkType(phlType: MsoCommandBarButtonHyperlinkType); safecall;
  2432.     property BuiltInFace: WordBool read Get_BuiltInFace write Set_BuiltInFace;
  2433.     property FaceId: SYSINT read Get_FaceId write Set_FaceId;
  2434.     property ShortcutText: WideString read Get_ShortcutText write Set_ShortcutText;
  2435.     property State: MsoButtonState read Get_State write Set_State;
  2436.     property Style: MsoButtonStyle read Get_Style write Set_Style;
  2437.     property HyperlinkType: MsoCommandBarButtonHyperlinkType read Get_HyperlinkType write Set_HyperlinkType;
  2438.   end;
  2439.  
  2440. // *********************************************************************//
  2441. // DispIntf:  _CommandBarButtonDisp
  2442. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2443. // GUID:      {000C030E-0000-0000-C000-000000000046}
  2444. // *********************************************************************//
  2445.   _CommandBarButtonDisp = dispinterface
  2446.     ['{000C030E-0000-0000-C000-000000000046}']
  2447.     property BuiltInFace: WordBool dispid 1610940416;
  2448.     procedure CopyFace; dispid 1610940418;
  2449.     property FaceId: SYSINT dispid 1610940419;
  2450.     procedure PasteFace; dispid 1610940421;
  2451.     property ShortcutText: WideString dispid 1610940422;
  2452.     property State: MsoButtonState dispid 1610940424;
  2453.     property Style: MsoButtonStyle dispid 1610940426;
  2454.     property HyperlinkType: MsoCommandBarButtonHyperlinkType dispid 1610940428;
  2455.     property BeginGroup: WordBool dispid 1610874880;
  2456.     property BuiltIn: WordBool readonly dispid 1610874882;
  2457.     property Caption: WideString dispid 1610874883;
  2458.     property Control: IDispatch readonly dispid 1610874885;
  2459.     function Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874886;
  2460.     procedure Delete(Temporary: OleVariant); dispid 1610874887;
  2461.     property DescriptionText: WideString dispid 1610874888;
  2462.     property Enabled: WordBool dispid 1610874890;
  2463.     procedure Execute; dispid 1610874892;
  2464.     property Height: SYSINT dispid 1610874893;
  2465.     property HelpContextId: SYSINT dispid 1610874895;
  2466.     property HelpFile: WideString dispid 1610874897;
  2467.     property Id: SYSINT readonly dispid 1610874899;
  2468.     property Index: SYSINT readonly dispid 1610874900;
  2469.     property InstanceId: Integer readonly dispid 1610874901;
  2470.     function Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874902;
  2471.     property Left: SYSINT readonly dispid 1610874903;
  2472.     property OLEUsage: MsoControlOLEUsage dispid 1610874904;
  2473.     property OnAction: WideString dispid 1610874906;
  2474.     property Parent: CommandBar readonly dispid 1610874908;
  2475.     property Parameter: WideString dispid 1610874909;
  2476.     property Priority: SYSINT dispid 1610874911;
  2477.     procedure Reset; dispid 1610874913;
  2478.     procedure SetFocus; dispid 1610874914;
  2479.     property Tag: WideString dispid 1610874915;
  2480.     property TooltipText: WideString dispid 1610874917;
  2481.     property Top: SYSINT readonly dispid 1610874919;
  2482.     property Type_: MsoControlType readonly dispid 1610874920;
  2483.     property Visible: WordBool dispid 1610874921;
  2484.     property Width: SYSINT dispid 1610874923;
  2485.     property IsPriorityDropped: WordBool readonly dispid 1610874925;
  2486.     procedure Reserved1; dispid 1610874926;
  2487.     procedure Reserved2; dispid 1610874927;
  2488.     procedure Reserved3; dispid 1610874928;
  2489.     procedure Reserved4; dispid 1610874929;
  2490.     procedure Reserved5; dispid 1610874930;
  2491.     procedure Reserved6; dispid 1610874931;
  2492.     procedure Reserved7; dispid 1610874932;
  2493.     property Application_: IDispatch readonly dispid 1610809344;
  2494.     property Creator: Integer readonly dispid 1610809345;
  2495.     property accParent: IDispatch readonly dispid -5000;
  2496.     property accChildCount: Integer readonly dispid -5001;
  2497.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  2498.     property accName[varChild: OleVariant]: WideString dispid -5003;
  2499.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  2500.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  2501.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  2502.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  2503.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  2504.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  2505.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  2506.     property accFocus: OleVariant readonly dispid -5011;
  2507.     property accSelection: OleVariant readonly dispid -5012;
  2508.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  2509.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  2510.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  2511.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  2512.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  2513.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  2514.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  2515.   end;
  2516.  
  2517. // *********************************************************************//
  2518. // Interface: CommandBarPopup
  2519. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2520. // GUID:      {000C030A-0000-0000-C000-000000000046}
  2521. // *********************************************************************//
  2522.   CommandBarPopup = interface(CommandBarControl)
  2523.     ['{000C030A-0000-0000-C000-000000000046}']
  2524.     function Get_CommandBar: CommandBar; safecall;
  2525.     function Get_Controls_: CommandBarControls; safecall;
  2526.     function Get_OLEMenuGroup: MsoOLEMenuGroup; safecall;
  2527.     procedure Set_OLEMenuGroup(pomg: MsoOLEMenuGroup); safecall;
  2528.     property CommandBar: CommandBar read Get_CommandBar;
  2529.     property Controls_: CommandBarControls read Get_Controls_;
  2530.     property OLEMenuGroup: MsoOLEMenuGroup read Get_OLEMenuGroup write Set_OLEMenuGroup;
  2531.   end;
  2532.  
  2533. // *********************************************************************//
  2534. // DispIntf:  CommandBarPopupDisp
  2535. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2536. // GUID:      {000C030A-0000-0000-C000-000000000046}
  2537. // *********************************************************************//
  2538.   CommandBarPopupDisp = dispinterface
  2539.     ['{000C030A-0000-0000-C000-000000000046}']
  2540.     property CommandBar: CommandBar readonly dispid 1610940416;
  2541.     property Controls_: CommandBarControls readonly dispid 1610940417;
  2542.     property OLEMenuGroup: MsoOLEMenuGroup dispid 1610940418;
  2543.     property BeginGroup: WordBool dispid 1610874880;
  2544.     property BuiltIn: WordBool readonly dispid 1610874882;
  2545.     property Caption: WideString dispid 1610874883;
  2546.     property Control: IDispatch readonly dispid 1610874885;
  2547.     function Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874886;
  2548.     procedure Delete(Temporary: OleVariant); dispid 1610874887;
  2549.     property DescriptionText: WideString dispid 1610874888;
  2550.     property Enabled: WordBool dispid 1610874890;
  2551.     procedure Execute; dispid 1610874892;
  2552.     property Height: SYSINT dispid 1610874893;
  2553.     property HelpContextId: SYSINT dispid 1610874895;
  2554.     property HelpFile: WideString dispid 1610874897;
  2555.     property Id: SYSINT readonly dispid 1610874899;
  2556.     property Index: SYSINT readonly dispid 1610874900;
  2557.     property InstanceId: Integer readonly dispid 1610874901;
  2558.     function Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874902;
  2559.     property Left: SYSINT readonly dispid 1610874903;
  2560.     property OLEUsage: MsoControlOLEUsage dispid 1610874904;
  2561.     property OnAction: WideString dispid 1610874906;
  2562.     property Parent: CommandBar readonly dispid 1610874908;
  2563.     property Parameter: WideString dispid 1610874909;
  2564.     property Priority: SYSINT dispid 1610874911;
  2565.     procedure Reset; dispid 1610874913;
  2566.     procedure SetFocus; dispid 1610874914;
  2567.     property Tag: WideString dispid 1610874915;
  2568.     property TooltipText: WideString dispid 1610874917;
  2569.     property Top: SYSINT readonly dispid 1610874919;
  2570.     property Type_: MsoControlType readonly dispid 1610874920;
  2571.     property Visible: WordBool dispid 1610874921;
  2572.     property Width: SYSINT dispid 1610874923;
  2573.     property IsPriorityDropped: WordBool readonly dispid 1610874925;
  2574.     procedure Reserved1; dispid 1610874926;
  2575.     procedure Reserved2; dispid 1610874927;
  2576.     procedure Reserved3; dispid 1610874928;
  2577.     procedure Reserved4; dispid 1610874929;
  2578.     procedure Reserved5; dispid 1610874930;
  2579.     procedure Reserved6; dispid 1610874931;
  2580.     procedure Reserved7; dispid 1610874932;
  2581.     property Application_: IDispatch readonly dispid 1610809344;
  2582.     property Creator: Integer readonly dispid 1610809345;
  2583.     property accParent: IDispatch readonly dispid -5000;
  2584.     property accChildCount: Integer readonly dispid -5001;
  2585.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  2586.     property accName[varChild: OleVariant]: WideString dispid -5003;
  2587.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  2588.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  2589.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  2590.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  2591.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  2592.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  2593.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  2594.     property accFocus: OleVariant readonly dispid -5011;
  2595.     property accSelection: OleVariant readonly dispid -5012;
  2596.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  2597.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  2598.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  2599.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  2600.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  2601.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  2602.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  2603.   end;
  2604.  
  2605. // *********************************************************************//
  2606. // Interface: _CommandBarComboBox
  2607. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2608. // GUID:      {000C030C-0000-0000-C000-000000000046}
  2609. // *********************************************************************//
  2610.   _CommandBarComboBox = interface(CommandBarControl)
  2611.     ['{000C030C-0000-0000-C000-000000000046}']
  2612.     procedure AddItem(const Text: WideString; Index: OleVariant); safecall;
  2613.     procedure Clear; safecall;
  2614.     function Get_DropDownLines: SYSINT; safecall;
  2615.     procedure Set_DropDownLines(pcLines: SYSINT); safecall;
  2616.     function Get_DropDownWidth: SYSINT; safecall;
  2617.     procedure Set_DropDownWidth(pdx: SYSINT); safecall;
  2618.     function Get_List(Index: SYSINT): WideString; safecall;
  2619.     procedure Set_List(Index: SYSINT; const pbstrItem: WideString); safecall;
  2620.     function Get_ListCount: SYSINT; safecall;
  2621.     function Get_ListHeaderCount: SYSINT; safecall;
  2622.     procedure Set_ListHeaderCount(pcItems: SYSINT); safecall;
  2623.     function Get_ListIndex: SYSINT; safecall;
  2624.     procedure Set_ListIndex(pi: SYSINT); safecall;
  2625.     procedure RemoveItem(Index: SYSINT); safecall;
  2626.     function Get_Style: MsoComboStyle; safecall;
  2627.     procedure Set_Style(pstyle: MsoComboStyle); safecall;
  2628.     function Get_Text: WideString; safecall;
  2629.     procedure Set_Text(const pbstrText: WideString); safecall;
  2630.     property DropDownLines: SYSINT read Get_DropDownLines write Set_DropDownLines;
  2631.     property DropDownWidth: SYSINT read Get_DropDownWidth write Set_DropDownWidth;
  2632.     property List[Index: SYSINT]: WideString read Get_List write Set_List;
  2633.     property ListCount: SYSINT read Get_ListCount;
  2634.     property ListHeaderCount: SYSINT read Get_ListHeaderCount write Set_ListHeaderCount;
  2635.     property ListIndex: SYSINT read Get_ListIndex write Set_ListIndex;
  2636.     property Style: MsoComboStyle read Get_Style write Set_Style;
  2637.     property Text: WideString read Get_Text write Set_Text;
  2638.   end;
  2639.  
  2640. // *********************************************************************//
  2641. // DispIntf:  _CommandBarComboBoxDisp
  2642. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2643. // GUID:      {000C030C-0000-0000-C000-000000000046}
  2644. // *********************************************************************//
  2645.   _CommandBarComboBoxDisp = dispinterface
  2646.     ['{000C030C-0000-0000-C000-000000000046}']
  2647.     procedure AddItem(const Text: WideString; Index: OleVariant); dispid 1610940416;
  2648.     procedure Clear; dispid 1610940417;
  2649.     property DropDownLines: SYSINT dispid 1610940418;
  2650.     property DropDownWidth: SYSINT dispid 1610940420;
  2651.     property List[Index: SYSINT]: WideString dispid 1610940422;
  2652.     property ListCount: SYSINT readonly dispid 1610940424;
  2653.     property ListHeaderCount: SYSINT dispid 1610940425;
  2654.     property ListIndex: SYSINT dispid 1610940427;
  2655.     procedure RemoveItem(Index: SYSINT); dispid 1610940429;
  2656.     property Style: MsoComboStyle dispid 1610940430;
  2657.     property Text: WideString dispid 1610940432;
  2658.     property BeginGroup: WordBool dispid 1610874880;
  2659.     property BuiltIn: WordBool readonly dispid 1610874882;
  2660.     property Caption: WideString dispid 1610874883;
  2661.     property Control: IDispatch readonly dispid 1610874885;
  2662.     function Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874886;
  2663.     procedure Delete(Temporary: OleVariant); dispid 1610874887;
  2664.     property DescriptionText: WideString dispid 1610874888;
  2665.     property Enabled: WordBool dispid 1610874890;
  2666.     procedure Execute; dispid 1610874892;
  2667.     property Height: SYSINT dispid 1610874893;
  2668.     property HelpContextId: SYSINT dispid 1610874895;
  2669.     property HelpFile: WideString dispid 1610874897;
  2670.     property Id: SYSINT readonly dispid 1610874899;
  2671.     property Index: SYSINT readonly dispid 1610874900;
  2672.     property InstanceId: Integer readonly dispid 1610874901;
  2673.     function Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874902;
  2674.     property Left: SYSINT readonly dispid 1610874903;
  2675.     property OLEUsage: MsoControlOLEUsage dispid 1610874904;
  2676.     property OnAction: WideString dispid 1610874906;
  2677.     property Parent: CommandBar readonly dispid 1610874908;
  2678.     property Parameter: WideString dispid 1610874909;
  2679.     property Priority: SYSINT dispid 1610874911;
  2680.     procedure Reset; dispid 1610874913;
  2681.     procedure SetFocus; dispid 1610874914;
  2682.     property Tag: WideString dispid 1610874915;
  2683.     property TooltipText: WideString dispid 1610874917;
  2684.     property Top: SYSINT readonly dispid 1610874919;
  2685.     property Type_: MsoControlType readonly dispid 1610874920;
  2686.     property Visible: WordBool dispid 1610874921;
  2687.     property Width: SYSINT dispid 1610874923;
  2688.     property IsPriorityDropped: WordBool readonly dispid 1610874925;
  2689.     procedure Reserved1; dispid 1610874926;
  2690.     procedure Reserved2; dispid 1610874927;
  2691.     procedure Reserved3; dispid 1610874928;
  2692.     procedure Reserved4; dispid 1610874929;
  2693.     procedure Reserved5; dispid 1610874930;
  2694.     procedure Reserved6; dispid 1610874931;
  2695.     procedure Reserved7; dispid 1610874932;
  2696.     property Application_: IDispatch readonly dispid 1610809344;
  2697.     property Creator: Integer readonly dispid 1610809345;
  2698.     property accParent: IDispatch readonly dispid -5000;
  2699.     property accChildCount: Integer readonly dispid -5001;
  2700.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  2701.     property accName[varChild: OleVariant]: WideString dispid -5003;
  2702.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  2703.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  2704.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  2705.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  2706.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  2707.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  2708.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  2709.     property accFocus: OleVariant readonly dispid -5011;
  2710.     property accSelection: OleVariant readonly dispid -5012;
  2711.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  2712.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  2713.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  2714.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  2715.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  2716.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  2717.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  2718.   end;
  2719.  
  2720. // *********************************************************************//
  2721. // Interface: _CommandBarActiveX
  2722. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2723. // GUID:      {000C030D-0000-0000-C000-000000000046}
  2724. // *********************************************************************//
  2725.   _CommandBarActiveX = interface(CommandBarControl)
  2726.     ['{000C030D-0000-0000-C000-000000000046}']
  2727.     function Get_ControlCLSID: WideString; safecall;
  2728.     procedure Set_ControlCLSID(const pbstrClsid: WideString); safecall;
  2729.     function Get_QueryControlInterface(const bstrIid: WideString): IUnknown; safecall;
  2730.     procedure SetInnerObjectFactory(const pUnk: IUnknown); safecall;
  2731.     procedure EnsureControl; safecall;
  2732.     procedure Set_InitWith(const Param1: IUnknown); safecall;
  2733.     property ControlCLSID: WideString read Get_ControlCLSID write Set_ControlCLSID;
  2734.     property QueryControlInterface[const bstrIid: WideString]: IUnknown read Get_QueryControlInterface;
  2735.     property InitWith: IUnknown write Set_InitWith;
  2736.   end;
  2737.  
  2738. // *********************************************************************//
  2739. // DispIntf:  _CommandBarActiveXDisp
  2740. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  2741. // GUID:      {000C030D-0000-0000-C000-000000000046}
  2742. // *********************************************************************//
  2743.   _CommandBarActiveXDisp = dispinterface
  2744.     ['{000C030D-0000-0000-C000-000000000046}']
  2745.     property ControlCLSID: WideString dispid 1610940416;
  2746.     property QueryControlInterface[const bstrIid: WideString]: IUnknown readonly dispid 1610940418;
  2747.     procedure SetInnerObjectFactory(const pUnk: IUnknown); dispid 1610940419;
  2748.     procedure EnsureControl; dispid 1610940420;
  2749.     property InitWith: IUnknown writeonly dispid 1610940421;
  2750.     property BeginGroup: WordBool dispid 1610874880;
  2751.     property BuiltIn: WordBool readonly dispid 1610874882;
  2752.     property Caption: WideString dispid 1610874883;
  2753.     property Control: IDispatch readonly dispid 1610874885;
  2754.     function Copy(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874886;
  2755.     procedure Delete(Temporary: OleVariant); dispid 1610874887;
  2756.     property DescriptionText: WideString dispid 1610874888;
  2757.     property Enabled: WordBool dispid 1610874890;
  2758.     procedure Execute; dispid 1610874892;
  2759.     property Height: SYSINT dispid 1610874893;
  2760.     property HelpContextId: SYSINT dispid 1610874895;
  2761.     property HelpFile: WideString dispid 1610874897;
  2762.     property Id: SYSINT readonly dispid 1610874899;
  2763.     property Index: SYSINT readonly dispid 1610874900;
  2764.     property InstanceId: Integer readonly dispid 1610874901;
  2765.     function Move(Bar: OleVariant; Before: OleVariant): CommandBarControl; dispid 1610874902;
  2766.     property Left: SYSINT readonly dispid 1610874903;
  2767.     property OLEUsage: MsoControlOLEUsage dispid 1610874904;
  2768.     property OnAction: WideString dispid 1610874906;
  2769.     property Parent: CommandBar readonly dispid 1610874908;
  2770.     property Parameter: WideString dispid 1610874909;
  2771.     property Priority: SYSINT dispid 1610874911;
  2772.     procedure Reset; dispid 1610874913;
  2773.     procedure SetFocus; dispid 1610874914;
  2774.     property Tag: WideString dispid 1610874915;
  2775.     property TooltipText: WideString dispid 1610874917;
  2776.     property Top: SYSINT readonly dispid 1610874919;
  2777.     property Type_: MsoControlType readonly dispid 1610874920;
  2778.     property Visible: WordBool dispid 1610874921;
  2779.     property Width: SYSINT dispid 1610874923;
  2780.     property IsPriorityDropped: WordBool readonly dispid 1610874925;
  2781.     procedure Reserved1; dispid 1610874926;
  2782.     procedure Reserved2; dispid 1610874927;
  2783.     procedure Reserved3; dispid 1610874928;
  2784.     procedure Reserved4; dispid 1610874929;
  2785.     procedure Reserved5; dispid 1610874930;
  2786.     procedure Reserved6; dispid 1610874931;
  2787.     procedure Reserved7; dispid 1610874932;
  2788.     property Application_: IDispatch readonly dispid 1610809344;
  2789.     property Creator: Integer readonly dispid 1610809345;
  2790.     property accParent: IDispatch readonly dispid -5000;
  2791.     property accChildCount: Integer readonly dispid -5001;
  2792.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  2793.     property accName[varChild: OleVariant]: WideString dispid -5003;
  2794.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  2795.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  2796.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  2797.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  2798.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  2799.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  2800.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  2801.     property accFocus: OleVariant readonly dispid -5011;
  2802.     property accSelection: OleVariant readonly dispid -5012;
  2803.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  2804.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  2805.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; 
  2806.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  2807.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  2808.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  2809.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  2810.   end;
  2811.  
  2812. // *********************************************************************//
  2813. // Interface: Adjustments
  2814. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2815. // GUID:      {000C0310-0000-0000-C000-000000000046}
  2816. // *********************************************************************//
  2817.   Adjustments = interface(_IMsoDispObj)
  2818.     ['{000C0310-0000-0000-C000-000000000046}']
  2819.     function Get_Parent: IDispatch; safecall;
  2820.     function Get_Count: SYSINT; safecall;
  2821.     function Get_Item(Index: SYSINT): Single; safecall;
  2822.     procedure Set_Item(Index: SYSINT; Val: Single); safecall;
  2823.     property Parent: IDispatch read Get_Parent;
  2824.     property Count: SYSINT read Get_Count;
  2825.     property Item[Index: SYSINT]: Single read Get_Item write Set_Item; default;
  2826.   end;
  2827.  
  2828. // *********************************************************************//
  2829. // DispIntf:  AdjustmentsDisp
  2830. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2831. // GUID:      {000C0310-0000-0000-C000-000000000046}
  2832. // *********************************************************************//
  2833.   AdjustmentsDisp = dispinterface
  2834.     ['{000C0310-0000-0000-C000-000000000046}']
  2835.     property Parent: IDispatch readonly dispid 1;
  2836.     property Count: SYSINT readonly dispid 2;
  2837.     property Item[Index: SYSINT]: Single dispid 0; default;
  2838.     property Application_: IDispatch readonly dispid 1610743808;
  2839.     property Creator: Integer readonly dispid 1610743809;
  2840.   end;
  2841.  
  2842. // *********************************************************************//
  2843. // Interface: CalloutFormat
  2844. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2845. // GUID:      {000C0311-0000-0000-C000-000000000046}
  2846. // *********************************************************************//
  2847.   CalloutFormat = interface(_IMsoDispObj)
  2848.     ['{000C0311-0000-0000-C000-000000000046}']
  2849.     function Get_Parent: IDispatch; safecall;
  2850.     procedure AutomaticLength; safecall;
  2851.     procedure CustomDrop(Drop: Single); safecall;
  2852.     procedure CustomLength(Length: Single); safecall;
  2853.     procedure PresetDrop(DropType: MsoCalloutDropType); safecall;
  2854.     function Get_Accent: MsoTriState; safecall;
  2855.     procedure Set_Accent(Accent: MsoTriState); safecall;
  2856.     function Get_Angle: MsoCalloutAngleType; safecall;
  2857.     procedure Set_Angle(Angle: MsoCalloutAngleType); safecall;
  2858.     function Get_AutoAttach: MsoTriState; safecall;
  2859.     procedure Set_AutoAttach(AutoAttach: MsoTriState); safecall;
  2860.     function Get_AutoLength: MsoTriState; safecall;
  2861.     function Get_Border: MsoTriState; safecall;
  2862.     procedure Set_Border(Border: MsoTriState); safecall;
  2863.     function Get_Drop: Single; safecall;
  2864.     function Get_DropType: MsoCalloutDropType; safecall;
  2865.     function Get_Gap: Single; safecall;
  2866.     procedure Set_Gap(Gap: Single); safecall;
  2867.     function Get_Length: Single; safecall;
  2868.     function Get_Type_: MsoCalloutType; safecall;
  2869.     procedure Set_Type_(Type_: MsoCalloutType); safecall;
  2870.     property Parent: IDispatch read Get_Parent;
  2871.     property Accent: MsoTriState read Get_Accent write Set_Accent;
  2872.     property Angle: MsoCalloutAngleType read Get_Angle write Set_Angle;
  2873.     property AutoAttach: MsoTriState read Get_AutoAttach write Set_AutoAttach;
  2874.     property AutoLength: MsoTriState read Get_AutoLength;
  2875.     property Border: MsoTriState read Get_Border write Set_Border;
  2876.     property Drop: Single read Get_Drop;
  2877.     property DropType: MsoCalloutDropType read Get_DropType;
  2878.     property Gap: Single read Get_Gap write Set_Gap;
  2879.     property Length: Single read Get_Length;
  2880.     property Type_: MsoCalloutType read Get_Type_ write Set_Type_;
  2881.   end;
  2882.  
  2883. // *********************************************************************//
  2884. // DispIntf:  CalloutFormatDisp
  2885. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2886. // GUID:      {000C0311-0000-0000-C000-000000000046}
  2887. // *********************************************************************//
  2888.   CalloutFormatDisp = dispinterface
  2889.     ['{000C0311-0000-0000-C000-000000000046}']
  2890.     property Parent: IDispatch readonly dispid 1;
  2891.     procedure AutomaticLength; dispid 10;
  2892.     procedure CustomDrop(Drop: Single); dispid 11;
  2893.     procedure CustomLength(Length: Single); dispid 12;
  2894.     procedure PresetDrop(DropType: MsoCalloutDropType); dispid 13;
  2895.     property Accent: MsoTriState dispid 100;
  2896.     property Angle: MsoCalloutAngleType dispid 101;
  2897.     property AutoAttach: MsoTriState dispid 102;
  2898.     property AutoLength: MsoTriState readonly dispid 103;
  2899.     property Border: MsoTriState dispid 104;
  2900.     property Drop: Single readonly dispid 105;
  2901.     property DropType: MsoCalloutDropType readonly dispid 106;
  2902.     property Gap: Single dispid 107;
  2903.     property Length: Single readonly dispid 108;
  2904.     property Type_: MsoCalloutType dispid 109;
  2905.     property Application_: IDispatch readonly dispid 1610743808;
  2906.     property Creator: Integer readonly dispid 1610743809;
  2907.   end;
  2908.  
  2909. // *********************************************************************//
  2910. // Interface: ColorFormat
  2911. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2912. // GUID:      {000C0312-0000-0000-C000-000000000046}
  2913. // *********************************************************************//
  2914.   ColorFormat = interface(_IMsoDispObj)
  2915.     ['{000C0312-0000-0000-C000-000000000046}']
  2916.     function Get_Parent: IDispatch; safecall;
  2917.     function Get_RGB_: MsoRGBType; safecall;
  2918.     procedure Set_RGB_(RGB_: MsoRGBType); safecall;
  2919.     function Get_SchemeColor: SYSINT; safecall;
  2920.     procedure Set_SchemeColor(SchemeColor: SYSINT); safecall;
  2921.     function Get_Type_: MsoColorType; safecall;
  2922.     property Parent: IDispatch read Get_Parent;
  2923.     property RGB_: MsoRGBType read Get_RGB_ write Set_RGB_;
  2924.     property SchemeColor: SYSINT read Get_SchemeColor write Set_SchemeColor;
  2925.     property Type_: MsoColorType read Get_Type_;
  2926.   end;
  2927.  
  2928. // *********************************************************************//
  2929. // DispIntf:  ColorFormatDisp
  2930. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2931. // GUID:      {000C0312-0000-0000-C000-000000000046}
  2932. // *********************************************************************//
  2933.   ColorFormatDisp = dispinterface
  2934.     ['{000C0312-0000-0000-C000-000000000046}']
  2935.     property Parent: IDispatch readonly dispid 1;
  2936.     property RGB_: MsoRGBType dispid 0;
  2937.     property SchemeColor: SYSINT dispid 100;
  2938.     property Type_: MsoColorType readonly dispid 101;
  2939.     property Application_: IDispatch readonly dispid 1610743808;
  2940.     property Creator: Integer readonly dispid 1610743809;
  2941.   end;
  2942.  
  2943. // *********************************************************************//
  2944. // Interface: ConnectorFormat
  2945. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2946. // GUID:      {000C0313-0000-0000-C000-000000000046}
  2947. // *********************************************************************//
  2948.   ConnectorFormat = interface(_IMsoDispObj)
  2949.     ['{000C0313-0000-0000-C000-000000000046}']
  2950.     function Get_Parent: IDispatch; safecall;
  2951.     procedure BeginConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); safecall;
  2952.     procedure BeginDisconnect; safecall;
  2953.     procedure EndConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); safecall;
  2954.     procedure EndDisconnect; safecall;
  2955.     function Get_BeginConnected: MsoTriState; safecall;
  2956.     function Get_BeginConnectedShape: Shape; safecall;
  2957.     function Get_BeginConnectionSite: SYSINT; safecall;
  2958.     function Get_EndConnected: MsoTriState; safecall;
  2959.     function Get_EndConnectedShape: Shape; safecall;
  2960.     function Get_EndConnectionSite: SYSINT; safecall;
  2961.     function Get_Type_: MsoConnectorType; safecall;
  2962.     procedure Set_Type_(Type_: MsoConnectorType); safecall;
  2963.     property Parent: IDispatch read Get_Parent;
  2964.     property BeginConnected: MsoTriState read Get_BeginConnected;
  2965.     property BeginConnectedShape: Shape read Get_BeginConnectedShape;
  2966.     property BeginConnectionSite: SYSINT read Get_BeginConnectionSite;
  2967.     property EndConnected: MsoTriState read Get_EndConnected;
  2968.     property EndConnectedShape: Shape read Get_EndConnectedShape;
  2969.     property EndConnectionSite: SYSINT read Get_EndConnectionSite;
  2970.     property Type_: MsoConnectorType read Get_Type_ write Set_Type_;
  2971.   end;
  2972.  
  2973. // *********************************************************************//
  2974. // DispIntf:  ConnectorFormatDisp
  2975. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2976. // GUID:      {000C0313-0000-0000-C000-000000000046}
  2977. // *********************************************************************//
  2978.   ConnectorFormatDisp = dispinterface
  2979.     ['{000C0313-0000-0000-C000-000000000046}']
  2980.     property Parent: IDispatch readonly dispid 1;
  2981.     procedure BeginConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); dispid 10;
  2982.     procedure BeginDisconnect; dispid 11;
  2983.     procedure EndConnect(const ConnectedShape: Shape; ConnectionSite: SYSINT); dispid 12;
  2984.     procedure EndDisconnect; dispid 13;
  2985.     property BeginConnected: MsoTriState readonly dispid 100;
  2986.     property BeginConnectedShape: Shape readonly dispid 101;
  2987.     property BeginConnectionSite: SYSINT readonly dispid 102;
  2988.     property EndConnected: MsoTriState readonly dispid 103;
  2989.     property EndConnectedShape: Shape readonly dispid 104;
  2990.     property EndConnectionSite: SYSINT readonly dispid 105;
  2991.     property Type_: MsoConnectorType dispid 106;
  2992.     property Application_: IDispatch readonly dispid 1610743808;
  2993.     property Creator: Integer readonly dispid 1610743809;
  2994.   end;
  2995.  
  2996. // *********************************************************************//
  2997. // Interface: FillFormat
  2998. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  2999. // GUID:      {000C0314-0000-0000-C000-000000000046}
  3000. // *********************************************************************//
  3001.   FillFormat = interface(_IMsoDispObj)
  3002.     ['{000C0314-0000-0000-C000-000000000046}']
  3003.     function Get_Parent: IDispatch; safecall;
  3004.     procedure Background; safecall;
  3005.     procedure OneColorGradient(Style: MsoGradientStyle; Variant: SYSINT; Degree: Single); safecall;
  3006.     procedure Patterned(Pattern: MsoPatternType); safecall;
  3007.     procedure PresetGradient(Style: MsoGradientStyle; Variant: SYSINT; 
  3008.                              PresetGradientType: MsoPresetGradientType); safecall;
  3009.     procedure PresetTextured(PresetTexture: MsoPresetTexture); safecall;
  3010.     procedure Solid; safecall;
  3011.     procedure TwoColorGradient(Style: MsoGradientStyle; Variant: SYSINT); safecall;
  3012.     procedure UserPicture(const PictureFile: WideString); safecall;
  3013.     procedure UserTextured(const TextureFile: WideString); safecall;
  3014.     function Get_BackColor: ColorFormat; safecall;
  3015.     procedure Set_BackColor(const BackColor: ColorFormat); safecall;
  3016.     function Get_ForeColor: ColorFormat; safecall;
  3017.     procedure Set_ForeColor(const ForeColor: ColorFormat); safecall;
  3018.     function Get_GradientColorType: MsoGradientColorType; safecall;
  3019.     function Get_GradientDegree: Single; safecall;
  3020.     function Get_GradientStyle: MsoGradientStyle; safecall;
  3021.     function Get_GradientVariant: SYSINT; safecall;
  3022.     function Get_Pattern: MsoPatternType; safecall;
  3023.     function Get_PresetGradientType: MsoPresetGradientType; safecall;
  3024.     function Get_PresetTexture: MsoPresetTexture; safecall;
  3025.     function Get_TextureName: WideString; safecall;
  3026.     function Get_TextureType: MsoTextureType; safecall;
  3027.     function Get_Transparency: Single; safecall;
  3028.     procedure Set_Transparency(Transparency: Single); safecall;
  3029.     function Get_Type_: MsoFillType; safecall;
  3030.     function Get_Visible: MsoTriState; safecall;
  3031.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3032.     property Parent: IDispatch read Get_Parent;
  3033.     property BackColor: ColorFormat read Get_BackColor write Set_BackColor;
  3034.     property ForeColor: ColorFormat read Get_ForeColor write Set_ForeColor;
  3035.     property GradientColorType: MsoGradientColorType read Get_GradientColorType;
  3036.     property GradientDegree: Single read Get_GradientDegree;
  3037.     property GradientStyle: MsoGradientStyle read Get_GradientStyle;
  3038.     property GradientVariant: SYSINT read Get_GradientVariant;
  3039.     property Pattern: MsoPatternType read Get_Pattern;
  3040.     property PresetGradientType: MsoPresetGradientType read Get_PresetGradientType;
  3041.     property PresetTexture: MsoPresetTexture read Get_PresetTexture;
  3042.     property TextureName: WideString read Get_TextureName;
  3043.     property TextureType: MsoTextureType read Get_TextureType;
  3044.     property Transparency: Single read Get_Transparency write Set_Transparency;
  3045.     property Type_: MsoFillType read Get_Type_;
  3046.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3047.   end;
  3048.  
  3049. // *********************************************************************//
  3050. // DispIntf:  FillFormatDisp
  3051. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3052. // GUID:      {000C0314-0000-0000-C000-000000000046}
  3053. // *********************************************************************//
  3054.   FillFormatDisp = dispinterface
  3055.     ['{000C0314-0000-0000-C000-000000000046}']
  3056.     property Parent: IDispatch readonly dispid 1;
  3057.     procedure Background; dispid 10;
  3058.     procedure OneColorGradient(Style: MsoGradientStyle; Variant: SYSINT; Degree: Single); dispid 11;
  3059.     procedure Patterned(Pattern: MsoPatternType); dispid 12;
  3060.     procedure PresetGradient(Style: MsoGradientStyle; Variant: SYSINT; 
  3061.                              PresetGradientType: MsoPresetGradientType); dispid 13;
  3062.     procedure PresetTextured(PresetTexture: MsoPresetTexture); dispid 14;
  3063.     procedure Solid; dispid 15;
  3064.     procedure TwoColorGradient(Style: MsoGradientStyle; Variant: SYSINT); dispid 16;
  3065.     procedure UserPicture(const PictureFile: WideString); dispid 17;
  3066.     procedure UserTextured(const TextureFile: WideString); dispid 18;
  3067.     property BackColor: ColorFormat dispid 100;
  3068.     property ForeColor: ColorFormat dispid 101;
  3069.     property GradientColorType: MsoGradientColorType readonly dispid 102;
  3070.     property GradientDegree: Single readonly dispid 103;
  3071.     property GradientStyle: MsoGradientStyle readonly dispid 104;
  3072.     property GradientVariant: SYSINT readonly dispid 105;
  3073.     property Pattern: MsoPatternType readonly dispid 106;
  3074.     property PresetGradientType: MsoPresetGradientType readonly dispid 107;
  3075.     property PresetTexture: MsoPresetTexture readonly dispid 108;
  3076.     property TextureName: WideString readonly dispid 109;
  3077.     property TextureType: MsoTextureType readonly dispid 110;
  3078.     property Transparency: Single dispid 111;
  3079.     property Type_: MsoFillType readonly dispid 112;
  3080.     property Visible: MsoTriState dispid 113;
  3081.     property Application_: IDispatch readonly dispid 1610743808;
  3082.     property Creator: Integer readonly dispid 1610743809;
  3083.   end;
  3084.  
  3085. // *********************************************************************//
  3086. // Interface: FreeformBuilder
  3087. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3088. // GUID:      {000C0315-0000-0000-C000-000000000046}
  3089. // *********************************************************************//
  3090.   FreeformBuilder = interface(_IMsoDispObj)
  3091.     ['{000C0315-0000-0000-C000-000000000046}']
  3092.     function Get_Parent: IDispatch; safecall;
  3093.     procedure AddNodes(SegmentType: MsoSegmentType; EditingType: MsoEditingType; X1: Single; 
  3094.                        Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); safecall;
  3095.     function ConvertToShape: Shape; safecall;
  3096.     property Parent: IDispatch read Get_Parent;
  3097.   end;
  3098.  
  3099. // *********************************************************************//
  3100. // DispIntf:  FreeformBuilderDisp
  3101. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3102. // GUID:      {000C0315-0000-0000-C000-000000000046}
  3103. // *********************************************************************//
  3104.   FreeformBuilderDisp = dispinterface
  3105.     ['{000C0315-0000-0000-C000-000000000046}']
  3106.     property Parent: IDispatch readonly dispid 1;
  3107.     procedure AddNodes(SegmentType: MsoSegmentType; EditingType: MsoEditingType; X1: Single; 
  3108.                        Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); dispid 10;
  3109.     function ConvertToShape: Shape; dispid 11;
  3110.     property Application_: IDispatch readonly dispid 1610743808;
  3111.     property Creator: Integer readonly dispid 1610743809;
  3112.   end;
  3113.  
  3114. // *********************************************************************//
  3115. // Interface: GroupShapes
  3116. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3117. // GUID:      {000C0316-0000-0000-C000-000000000046}
  3118. // *********************************************************************//
  3119.   GroupShapes = interface(_IMsoDispObj)
  3120.     ['{000C0316-0000-0000-C000-000000000046}']
  3121.     function Get_Parent: IDispatch; safecall;
  3122.     function Get_Count: SYSINT; safecall;
  3123.     function Item(Index: OleVariant): Shape; safecall;
  3124.     function Get__NewEnum: IUnknown; safecall;
  3125.     property Parent: IDispatch read Get_Parent;
  3126.     property Count: SYSINT read Get_Count;
  3127.     property _NewEnum: IUnknown read Get__NewEnum;
  3128.   end;
  3129.  
  3130. // *********************************************************************//
  3131. // DispIntf:  GroupShapesDisp
  3132. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3133. // GUID:      {000C0316-0000-0000-C000-000000000046}
  3134. // *********************************************************************//
  3135.   GroupShapesDisp = dispinterface
  3136.     ['{000C0316-0000-0000-C000-000000000046}']
  3137.     property Parent: IDispatch readonly dispid 1;
  3138.     property Count: SYSINT readonly dispid 2;
  3139.     function Item(Index: OleVariant): Shape; dispid 0;
  3140.     property _NewEnum: IUnknown readonly dispid -4;
  3141.     property Application_: IDispatch readonly dispid 1610743808;
  3142.     property Creator: Integer readonly dispid 1610743809;
  3143.   end;
  3144.  
  3145. // *********************************************************************//
  3146. // Interface: LineFormat
  3147. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3148. // GUID:      {000C0317-0000-0000-C000-000000000046}
  3149. // *********************************************************************//
  3150.   LineFormat = interface(_IMsoDispObj)
  3151.     ['{000C0317-0000-0000-C000-000000000046}']
  3152.     function Get_Parent: IDispatch; safecall;
  3153.     function Get_BackColor: ColorFormat; safecall;
  3154.     procedure Set_BackColor(const BackColor: ColorFormat); safecall;
  3155.     function Get_BeginArrowheadLength: MsoArrowheadLength; safecall;
  3156.     procedure Set_BeginArrowheadLength(BeginArrowheadLength: MsoArrowheadLength); safecall;
  3157.     function Get_BeginArrowheadStyle: MsoArrowheadStyle; safecall;
  3158.     procedure Set_BeginArrowheadStyle(BeginArrowheadStyle: MsoArrowheadStyle); safecall;
  3159.     function Get_BeginArrowheadWidth: MsoArrowheadWidth; safecall;
  3160.     procedure Set_BeginArrowheadWidth(BeginArrowheadWidth: MsoArrowheadWidth); safecall;
  3161.     function Get_DashStyle: MsoLineDashStyle; safecall;
  3162.     procedure Set_DashStyle(DashStyle: MsoLineDashStyle); safecall;
  3163.     function Get_EndArrowheadLength: MsoArrowheadLength; safecall;
  3164.     procedure Set_EndArrowheadLength(EndArrowheadLength: MsoArrowheadLength); safecall;
  3165.     function Get_EndArrowheadStyle: MsoArrowheadStyle; safecall;
  3166.     procedure Set_EndArrowheadStyle(EndArrowheadStyle: MsoArrowheadStyle); safecall;
  3167.     function Get_EndArrowheadWidth: MsoArrowheadWidth; safecall;
  3168.     procedure Set_EndArrowheadWidth(EndArrowheadWidth: MsoArrowheadWidth); safecall;
  3169.     function Get_ForeColor: ColorFormat; safecall;
  3170.     procedure Set_ForeColor(const ForeColor: ColorFormat); safecall;
  3171.     function Get_Pattern: MsoPatternType; safecall;
  3172.     procedure Set_Pattern(Pattern: MsoPatternType); safecall;
  3173.     function Get_Style: MsoLineStyle; safecall;
  3174.     procedure Set_Style(Style: MsoLineStyle); safecall;
  3175.     function Get_Transparency: Single; safecall;
  3176.     procedure Set_Transparency(Transparency: Single); safecall;
  3177.     function Get_Visible: MsoTriState; safecall;
  3178.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3179.     function Get_Weight: Single; safecall;
  3180.     procedure Set_Weight(Weight: Single); safecall;
  3181.     property Parent: IDispatch read Get_Parent;
  3182.     property BackColor: ColorFormat read Get_BackColor write Set_BackColor;
  3183.     property BeginArrowheadLength: MsoArrowheadLength read Get_BeginArrowheadLength write Set_BeginArrowheadLength;
  3184.     property BeginArrowheadStyle: MsoArrowheadStyle read Get_BeginArrowheadStyle write Set_BeginArrowheadStyle;
  3185.     property BeginArrowheadWidth: MsoArrowheadWidth read Get_BeginArrowheadWidth write Set_BeginArrowheadWidth;
  3186.     property DashStyle: MsoLineDashStyle read Get_DashStyle write Set_DashStyle;
  3187.     property EndArrowheadLength: MsoArrowheadLength read Get_EndArrowheadLength write Set_EndArrowheadLength;
  3188.     property EndArrowheadStyle: MsoArrowheadStyle read Get_EndArrowheadStyle write Set_EndArrowheadStyle;
  3189.     property EndArrowheadWidth: MsoArrowheadWidth read Get_EndArrowheadWidth write Set_EndArrowheadWidth;
  3190.     property ForeColor: ColorFormat read Get_ForeColor write Set_ForeColor;
  3191.     property Pattern: MsoPatternType read Get_Pattern write Set_Pattern;
  3192.     property Style: MsoLineStyle read Get_Style write Set_Style;
  3193.     property Transparency: Single read Get_Transparency write Set_Transparency;
  3194.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3195.     property Weight: Single read Get_Weight write Set_Weight;
  3196.   end;
  3197.  
  3198. // *********************************************************************//
  3199. // DispIntf:  LineFormatDisp
  3200. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3201. // GUID:      {000C0317-0000-0000-C000-000000000046}
  3202. // *********************************************************************//
  3203.   LineFormatDisp = dispinterface
  3204.     ['{000C0317-0000-0000-C000-000000000046}']
  3205.     property Parent: IDispatch readonly dispid 1;
  3206.     property BackColor: ColorFormat dispid 100;
  3207.     property BeginArrowheadLength: MsoArrowheadLength dispid 101;
  3208.     property BeginArrowheadStyle: MsoArrowheadStyle dispid 102;
  3209.     property BeginArrowheadWidth: MsoArrowheadWidth dispid 103;
  3210.     property DashStyle: MsoLineDashStyle dispid 104;
  3211.     property EndArrowheadLength: MsoArrowheadLength dispid 105;
  3212.     property EndArrowheadStyle: MsoArrowheadStyle dispid 106;
  3213.     property EndArrowheadWidth: MsoArrowheadWidth dispid 107;
  3214.     property ForeColor: ColorFormat dispid 108;
  3215.     property Pattern: MsoPatternType dispid 109;
  3216.     property Style: MsoLineStyle dispid 110;
  3217.     property Transparency: Single dispid 111;
  3218.     property Visible: MsoTriState dispid 112;
  3219.     property Weight: Single dispid 113;
  3220.     property Application_: IDispatch readonly dispid 1610743808;
  3221.     property Creator: Integer readonly dispid 1610743809;
  3222.   end;
  3223.  
  3224. // *********************************************************************//
  3225. // Interface: ShapeNode
  3226. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3227. // GUID:      {000C0318-0000-0000-C000-000000000046}
  3228. // *********************************************************************//
  3229.   ShapeNode = interface(_IMsoDispObj)
  3230.     ['{000C0318-0000-0000-C000-000000000046}']
  3231.     function Get_Parent: IDispatch; safecall;
  3232.     function Get_EditingType: MsoEditingType; safecall;
  3233.     function Get_Points: OleVariant; safecall;
  3234.     function Get_SegmentType: MsoSegmentType; safecall;
  3235.     property Parent: IDispatch read Get_Parent;
  3236.     property EditingType: MsoEditingType read Get_EditingType;
  3237.     property Points: OleVariant read Get_Points;
  3238.     property SegmentType: MsoSegmentType read Get_SegmentType;
  3239.   end;
  3240.  
  3241. // *********************************************************************//
  3242. // DispIntf:  ShapeNodeDisp
  3243. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3244. // GUID:      {000C0318-0000-0000-C000-000000000046}
  3245. // *********************************************************************//
  3246.   ShapeNodeDisp = dispinterface
  3247.     ['{000C0318-0000-0000-C000-000000000046}']
  3248.     property Parent: IDispatch readonly dispid 1;
  3249.     property EditingType: MsoEditingType readonly dispid 100;
  3250.     property Points: OleVariant readonly dispid 101;
  3251.     property SegmentType: MsoSegmentType readonly dispid 102;
  3252.     property Application_: IDispatch readonly dispid 1610743808;
  3253.     property Creator: Integer readonly dispid 1610743809;
  3254.   end;
  3255.  
  3256. // *********************************************************************//
  3257. // Interface: ShapeNodes
  3258. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3259. // GUID:      {000C0319-0000-0000-C000-000000000046}
  3260. // *********************************************************************//
  3261.   ShapeNodes = interface(_IMsoDispObj)
  3262.     ['{000C0319-0000-0000-C000-000000000046}']
  3263.     function Get_Parent: IDispatch; safecall;
  3264.     function Get_Count: SYSINT; safecall;
  3265.     function Item(Index: OleVariant): ShapeNode; safecall;
  3266.     function Get__NewEnum: IUnknown; safecall;
  3267.     procedure Delete(Index: SYSINT); safecall;
  3268.     procedure Insert(Index: SYSINT; SegmentType: MsoSegmentType; EditingType: MsoEditingType; 
  3269.                      X1: Single; Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); safecall;
  3270.     procedure SetEditingType(Index: SYSINT; EditingType: MsoEditingType); safecall;
  3271.     procedure SetPosition(Index: SYSINT; X1: Single; Y1: Single); safecall;
  3272.     procedure SetSegmentType(Index: SYSINT; SegmentType: MsoSegmentType); safecall;
  3273.     property Parent: IDispatch read Get_Parent;
  3274.     property Count: SYSINT read Get_Count;
  3275.     property _NewEnum: IUnknown read Get__NewEnum;
  3276.   end;
  3277.  
  3278. // *********************************************************************//
  3279. // DispIntf:  ShapeNodesDisp
  3280. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3281. // GUID:      {000C0319-0000-0000-C000-000000000046}
  3282. // *********************************************************************//
  3283.   ShapeNodesDisp = dispinterface
  3284.     ['{000C0319-0000-0000-C000-000000000046}']
  3285.     property Parent: IDispatch readonly dispid 1;
  3286.     property Count: SYSINT readonly dispid 2;
  3287.     function Item(Index: OleVariant): ShapeNode; dispid 0;
  3288.     property _NewEnum: IUnknown readonly dispid -4;
  3289.     procedure Delete(Index: SYSINT); dispid 11;
  3290.     procedure Insert(Index: SYSINT; SegmentType: MsoSegmentType; EditingType: MsoEditingType; 
  3291.                      X1: Single; Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); dispid 12;
  3292.     procedure SetEditingType(Index: SYSINT; EditingType: MsoEditingType); dispid 13;
  3293.     procedure SetPosition(Index: SYSINT; X1: Single; Y1: Single); dispid 14;
  3294.     procedure SetSegmentType(Index: SYSINT; SegmentType: MsoSegmentType); dispid 15;
  3295.     property Application_: IDispatch readonly dispid 1610743808;
  3296.     property Creator: Integer readonly dispid 1610743809;
  3297.   end;
  3298.  
  3299. // *********************************************************************//
  3300. // Interface: PictureFormat
  3301. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3302. // GUID:      {000C031A-0000-0000-C000-000000000046}
  3303. // *********************************************************************//
  3304.   PictureFormat = interface(_IMsoDispObj)
  3305.     ['{000C031A-0000-0000-C000-000000000046}']
  3306.     function Get_Parent: IDispatch; safecall;
  3307.     procedure IncrementBrightness(Increment: Single); safecall;
  3308.     procedure IncrementContrast(Increment: Single); safecall;
  3309.     function Get_Brightness: Single; safecall;
  3310.     procedure Set_Brightness(Brightness: Single); safecall;
  3311.     function Get_ColorType: MsoPictureColorType; safecall;
  3312.     procedure Set_ColorType(ColorType: MsoPictureColorType); safecall;
  3313.     function Get_Contrast: Single; safecall;
  3314.     procedure Set_Contrast(Contrast: Single); safecall;
  3315.     function Get_CropBottom: Single; safecall;
  3316.     procedure Set_CropBottom(CropBottom: Single); safecall;
  3317.     function Get_CropLeft: Single; safecall;
  3318.     procedure Set_CropLeft(CropLeft: Single); safecall;
  3319.     function Get_CropRight: Single; safecall;
  3320.     procedure Set_CropRight(CropRight: Single); safecall;
  3321.     function Get_CropTop: Single; safecall;
  3322.     procedure Set_CropTop(CropTop: Single); safecall;
  3323.     function Get_TransparencyColor: MsoRGBType; safecall;
  3324.     procedure Set_TransparencyColor(TransparencyColor: MsoRGBType); safecall;
  3325.     function Get_TransparentBackground: MsoTriState; safecall;
  3326.     procedure Set_TransparentBackground(TransparentBackground: MsoTriState); safecall;
  3327.     property Parent: IDispatch read Get_Parent;
  3328.     property Brightness: Single read Get_Brightness write Set_Brightness;
  3329.     property ColorType: MsoPictureColorType read Get_ColorType write Set_ColorType;
  3330.     property Contrast: Single read Get_Contrast write Set_Contrast;
  3331.     property CropBottom: Single read Get_CropBottom write Set_CropBottom;
  3332.     property CropLeft: Single read Get_CropLeft write Set_CropLeft;
  3333.     property CropRight: Single read Get_CropRight write Set_CropRight;
  3334.     property CropTop: Single read Get_CropTop write Set_CropTop;
  3335.     property TransparencyColor: MsoRGBType read Get_TransparencyColor write Set_TransparencyColor;
  3336.     property TransparentBackground: MsoTriState read Get_TransparentBackground write Set_TransparentBackground;
  3337.   end;
  3338.  
  3339. // *********************************************************************//
  3340. // DispIntf:  PictureFormatDisp
  3341. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3342. // GUID:      {000C031A-0000-0000-C000-000000000046}
  3343. // *********************************************************************//
  3344.   PictureFormatDisp = dispinterface
  3345.     ['{000C031A-0000-0000-C000-000000000046}']
  3346.     property Parent: IDispatch readonly dispid 1;
  3347.     procedure IncrementBrightness(Increment: Single); dispid 10;
  3348.     procedure IncrementContrast(Increment: Single); dispid 11;
  3349.     property Brightness: Single dispid 100;
  3350.     property ColorType: MsoPictureColorType dispid 101;
  3351.     property Contrast: Single dispid 102;
  3352.     property CropBottom: Single dispid 103;
  3353.     property CropLeft: Single dispid 104;
  3354.     property CropRight: Single dispid 105;
  3355.     property CropTop: Single dispid 106;
  3356.     property TransparencyColor: MsoRGBType dispid 107;
  3357.     property TransparentBackground: MsoTriState dispid 108;
  3358.     property Application_: IDispatch readonly dispid 1610743808;
  3359.     property Creator: Integer readonly dispid 1610743809;
  3360.   end;
  3361.  
  3362. // *********************************************************************//
  3363. // Interface: ShadowFormat
  3364. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3365. // GUID:      {000C031B-0000-0000-C000-000000000046}
  3366. // *********************************************************************//
  3367.   ShadowFormat = interface(_IMsoDispObj)
  3368.     ['{000C031B-0000-0000-C000-000000000046}']
  3369.     function Get_Parent: IDispatch; safecall;
  3370.     procedure IncrementOffsetX(Increment: Single); safecall;
  3371.     procedure IncrementOffsetY(Increment: Single); safecall;
  3372.     function Get_ForeColor: ColorFormat; safecall;
  3373.     procedure Set_ForeColor(const ForeColor: ColorFormat); safecall;
  3374.     function Get_Obscured: MsoTriState; safecall;
  3375.     procedure Set_Obscured(Obscured: MsoTriState); safecall;
  3376.     function Get_OffsetX: Single; safecall;
  3377.     procedure Set_OffsetX(OffsetX: Single); safecall;
  3378.     function Get_OffsetY: Single; safecall;
  3379.     procedure Set_OffsetY(OffsetY: Single); safecall;
  3380.     function Get_Transparency: Single; safecall;
  3381.     procedure Set_Transparency(Transparency: Single); safecall;
  3382.     function Get_Type_: MsoShadowType; safecall;
  3383.     procedure Set_Type_(Type_: MsoShadowType); safecall;
  3384.     function Get_Visible: MsoTriState; safecall;
  3385.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3386.     property Parent: IDispatch read Get_Parent;
  3387.     property ForeColor: ColorFormat read Get_ForeColor write Set_ForeColor;
  3388.     property Obscured: MsoTriState read Get_Obscured write Set_Obscured;
  3389.     property OffsetX: Single read Get_OffsetX write Set_OffsetX;
  3390.     property OffsetY: Single read Get_OffsetY write Set_OffsetY;
  3391.     property Transparency: Single read Get_Transparency write Set_Transparency;
  3392.     property Type_: MsoShadowType read Get_Type_ write Set_Type_;
  3393.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3394.   end;
  3395.  
  3396. // *********************************************************************//
  3397. // DispIntf:  ShadowFormatDisp
  3398. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3399. // GUID:      {000C031B-0000-0000-C000-000000000046}
  3400. // *********************************************************************//
  3401.   ShadowFormatDisp = dispinterface
  3402.     ['{000C031B-0000-0000-C000-000000000046}']
  3403.     property Parent: IDispatch readonly dispid 1;
  3404.     procedure IncrementOffsetX(Increment: Single); dispid 10;
  3405.     procedure IncrementOffsetY(Increment: Single); dispid 11;
  3406.     property ForeColor: ColorFormat dispid 100;
  3407.     property Obscured: MsoTriState dispid 101;
  3408.     property OffsetX: Single dispid 102;
  3409.     property OffsetY: Single dispid 103;
  3410.     property Transparency: Single dispid 104;
  3411.     property Type_: MsoShadowType dispid 105;
  3412.     property Visible: MsoTriState dispid 106;
  3413.     property Application_: IDispatch readonly dispid 1610743808;
  3414.     property Creator: Integer readonly dispid 1610743809;
  3415.   end;
  3416.  
  3417. // *********************************************************************//
  3418. // Interface: Script
  3419. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3420. // GUID:      {000C0341-0000-0000-C000-000000000046}
  3421. // *********************************************************************//
  3422.   Script = interface(_IMsoDispObj)
  3423.     ['{000C0341-0000-0000-C000-000000000046}']
  3424.     function Get_Parent: IDispatch; safecall;
  3425.     function Get_Extended: WideString; safecall;
  3426.     procedure Set_Extended(const Extended: WideString); safecall;
  3427.     function Get_Id: WideString; safecall;
  3428.     procedure Set_Id(const Id: WideString); safecall;
  3429.     function Get_Language: MsoScriptLanguage; safecall;
  3430.     procedure Set_Language(Language: MsoScriptLanguage); safecall;
  3431.     function Get_Location: MsoScriptLocation; safecall;
  3432.     procedure Delete; safecall;
  3433.     function Get_Shape: IDispatch; safecall;
  3434.     function Get_ScriptText: WideString; safecall;
  3435.     procedure Set_ScriptText(const Script: WideString); safecall;
  3436.     property Parent: IDispatch read Get_Parent;
  3437.     property Extended: WideString read Get_Extended write Set_Extended;
  3438.     property Id: WideString read Get_Id write Set_Id;
  3439.     property Language: MsoScriptLanguage read Get_Language write Set_Language;
  3440.     property Location: MsoScriptLocation read Get_Location;
  3441.     property Shape: IDispatch read Get_Shape;
  3442.     property ScriptText: WideString read Get_ScriptText write Set_ScriptText;
  3443.   end;
  3444.  
  3445. // *********************************************************************//
  3446. // DispIntf:  ScriptDisp
  3447. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3448. // GUID:      {000C0341-0000-0000-C000-000000000046}
  3449. // *********************************************************************//
  3450.   ScriptDisp = dispinterface
  3451.     ['{000C0341-0000-0000-C000-000000000046}']
  3452.     property Parent: IDispatch readonly dispid 1610809344;
  3453.     property Extended: WideString dispid 1610809345;
  3454.     property Id: WideString dispid 1610809347;
  3455.     property Language: MsoScriptLanguage dispid 1610809349;
  3456.     property Location: MsoScriptLocation readonly dispid 1610809351;
  3457.     procedure Delete; dispid 1610809352;
  3458.     property Shape: IDispatch readonly dispid 1610809353;
  3459.     property ScriptText: WideString dispid 0;
  3460.     property Application_: IDispatch readonly dispid 1610743808;
  3461.     property Creator: Integer readonly dispid 1610743809;
  3462.   end;
  3463.  
  3464. // *********************************************************************//
  3465. // Interface: Scripts
  3466. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3467. // GUID:      {000C0340-0000-0000-C000-000000000046}
  3468. // *********************************************************************//
  3469.   Scripts = interface(_IMsoDispObj)
  3470.     ['{000C0340-0000-0000-C000-000000000046}']
  3471.     function Get_Parent: IDispatch; safecall;
  3472.     function Get_Count: Integer; safecall;
  3473.     function Get__NewEnum: IUnknown; safecall;
  3474.     function Item(Index: OleVariant): Script; safecall;
  3475.     function Add(const Anchor: IDispatch; Location: MsoScriptLocation; Language: MsoScriptLanguage; 
  3476.                  const Id: WideString; const Extended: WideString; const ScriptText: WideString): Script; safecall;
  3477.     procedure Delete; safecall;
  3478.     property Parent: IDispatch read Get_Parent;
  3479.     property Count: Integer read Get_Count;
  3480.     property _NewEnum: IUnknown read Get__NewEnum;
  3481.   end;
  3482.  
  3483. // *********************************************************************//
  3484. // DispIntf:  ScriptsDisp
  3485. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  3486. // GUID:      {000C0340-0000-0000-C000-000000000046}
  3487. // *********************************************************************//
  3488.   ScriptsDisp = dispinterface
  3489.     ['{000C0340-0000-0000-C000-000000000046}']
  3490.     property Parent: IDispatch readonly dispid 1610809344;
  3491.     property Count: Integer readonly dispid 1610809345;
  3492.     property _NewEnum: IUnknown readonly dispid -4;
  3493.     function Item(Index: OleVariant): Script; dispid 0;
  3494.     function Add(const Anchor: IDispatch; Location: MsoScriptLocation; Language: MsoScriptLanguage; 
  3495.                  const Id: WideString; const Extended: WideString; const ScriptText: WideString): Script; dispid 1610809348;
  3496.     procedure Delete; dispid 1610809349;
  3497.     property Application_: IDispatch readonly dispid 1610743808;
  3498.     property Creator: Integer readonly dispid 1610743809;
  3499.   end;
  3500.  
  3501. // *********************************************************************//
  3502. // Interface: Shape
  3503. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3504. // GUID:      {000C031C-0000-0000-C000-000000000046}
  3505. // *********************************************************************//
  3506.   Shape = interface(_IMsoDispObj)
  3507.     ['{000C031C-0000-0000-C000-000000000046}']
  3508.     function Get_Parent: IDispatch; safecall;
  3509.     procedure Apply; safecall;
  3510.     procedure Delete; safecall;
  3511.     function Duplicate: Shape; safecall;
  3512.     procedure Flip(FlipCmd: MsoFlipCmd); safecall;
  3513.     procedure IncrementLeft(Increment: Single); safecall;
  3514.     procedure IncrementRotation(Increment: Single); safecall;
  3515.     procedure IncrementTop(Increment: Single); safecall;
  3516.     procedure PickUp; safecall;
  3517.     procedure RerouteConnections; safecall;
  3518.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  3519.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  3520.     procedure Select(Replace: OleVariant); safecall;
  3521.     procedure SetShapesDefaultProperties; safecall;
  3522.     function Ungroup: ShapeRange; safecall;
  3523.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); safecall;
  3524.     function Get_Adjustments: Adjustments; safecall;
  3525.     function Get_AutoShapeType: MsoAutoShapeType; safecall;
  3526.     procedure Set_AutoShapeType(AutoShapeType: MsoAutoShapeType); safecall;
  3527.     function Get_BlackWhiteMode: MsoBlackWhiteMode; safecall;
  3528.     procedure Set_BlackWhiteMode(BlackWhiteMode: MsoBlackWhiteMode); safecall;
  3529.     function Get_Callout: CalloutFormat; safecall;
  3530.     function Get_ConnectionSiteCount: SYSINT; safecall;
  3531.     function Get_Connector: MsoTriState; safecall;
  3532.     function Get_ConnectorFormat: ConnectorFormat; safecall;
  3533.     function Get_Fill: FillFormat; safecall;
  3534.     function Get_GroupItems: GroupShapes; safecall;
  3535.     function Get_Height: Single; safecall;
  3536.     procedure Set_Height(Height: Single); safecall;
  3537.     function Get_HorizontalFlip: MsoTriState; safecall;
  3538.     function Get_Left: Single; safecall;
  3539.     procedure Set_Left(Left: Single); safecall;
  3540.     function Get_Line: LineFormat; safecall;
  3541.     function Get_LockAspectRatio: MsoTriState; safecall;
  3542.     procedure Set_LockAspectRatio(LockAspectRatio: MsoTriState); safecall;
  3543.     function Get_Name: WideString; safecall;
  3544.     procedure Set_Name(const Name: WideString); safecall;
  3545.     function Get_Nodes: ShapeNodes; safecall;
  3546.     function Get_Rotation: Single; safecall;
  3547.     procedure Set_Rotation(Rotation: Single); safecall;
  3548.     function Get_PictureFormat: PictureFormat; safecall;
  3549.     function Get_Shadow: ShadowFormat; safecall;
  3550.     function Get_TextEffect: TextEffectFormat; safecall;
  3551.     function Get_TextFrame: TextFrame; safecall;
  3552.     function Get_ThreeD: ThreeDFormat; safecall;
  3553.     function Get_Top: Single; safecall;
  3554.     procedure Set_Top(Top: Single); safecall;
  3555.     function Get_Type_: MsoShapeType; safecall;
  3556.     function Get_VerticalFlip: MsoTriState; safecall;
  3557.     function Get_Vertices: OleVariant; safecall;
  3558.     function Get_Visible: MsoTriState; safecall;
  3559.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3560.     function Get_Width: Single; safecall;
  3561.     procedure Set_Width(Width: Single); safecall;
  3562.     function Get_ZOrderPosition: SYSINT; safecall;
  3563.     function Get_Script: Script; safecall;
  3564.     function Get_AlternativeText: WideString; safecall;
  3565.     procedure Set_AlternativeText(const AlternativeText: WideString); safecall;
  3566.     property Parent: IDispatch read Get_Parent;
  3567.     property Adjustments: Adjustments read Get_Adjustments;
  3568.     property AutoShapeType: MsoAutoShapeType read Get_AutoShapeType write Set_AutoShapeType;
  3569.     property BlackWhiteMode: MsoBlackWhiteMode read Get_BlackWhiteMode write Set_BlackWhiteMode;
  3570.     property Callout: CalloutFormat read Get_Callout;
  3571.     property ConnectionSiteCount: SYSINT read Get_ConnectionSiteCount;
  3572.     property Connector: MsoTriState read Get_Connector;
  3573.     property ConnectorFormat: ConnectorFormat read Get_ConnectorFormat;
  3574.     property Fill: FillFormat read Get_Fill;
  3575.     property GroupItems: GroupShapes read Get_GroupItems;
  3576.     property Height: Single read Get_Height write Set_Height;
  3577.     property HorizontalFlip: MsoTriState read Get_HorizontalFlip;
  3578.     property Left: Single read Get_Left write Set_Left;
  3579.     property Line: LineFormat read Get_Line;
  3580.     property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
  3581.     property Name: WideString read Get_Name write Set_Name;
  3582.     property Nodes: ShapeNodes read Get_Nodes;
  3583.     property Rotation: Single read Get_Rotation write Set_Rotation;
  3584.     property PictureFormat: PictureFormat read Get_PictureFormat;
  3585.     property Shadow: ShadowFormat read Get_Shadow;
  3586.     property TextEffect: TextEffectFormat read Get_TextEffect;
  3587.     property TextFrame: TextFrame read Get_TextFrame;
  3588.     property ThreeD: ThreeDFormat read Get_ThreeD;
  3589.     property Top: Single read Get_Top write Set_Top;
  3590.     property Type_: MsoShapeType read Get_Type_;
  3591.     property VerticalFlip: MsoTriState read Get_VerticalFlip;
  3592.     property Vertices: OleVariant read Get_Vertices;
  3593.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3594.     property Width: Single read Get_Width write Set_Width;
  3595.     property ZOrderPosition: SYSINT read Get_ZOrderPosition;
  3596.     property Script: Script read Get_Script;
  3597.     property AlternativeText: WideString read Get_AlternativeText write Set_AlternativeText;
  3598.   end;
  3599.  
  3600. // *********************************************************************//
  3601. // DispIntf:  ShapeDisp
  3602. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3603. // GUID:      {000C031C-0000-0000-C000-000000000046}
  3604. // *********************************************************************//
  3605.   ShapeDisp = dispinterface
  3606.     ['{000C031C-0000-0000-C000-000000000046}']
  3607.     property Parent: IDispatch readonly dispid 1;
  3608.     procedure Apply; dispid 10;
  3609.     procedure Delete; dispid 11;
  3610.     function Duplicate: Shape; dispid 12;
  3611.     procedure Flip(FlipCmd: MsoFlipCmd); dispid 13;
  3612.     procedure IncrementLeft(Increment: Single); dispid 14;
  3613.     procedure IncrementRotation(Increment: Single); dispid 15;
  3614.     procedure IncrementTop(Increment: Single); dispid 16;
  3615.     procedure PickUp; dispid 17;
  3616.     procedure RerouteConnections; dispid 18;
  3617.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 19;
  3618.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 20;
  3619.     procedure Select(Replace: OleVariant); dispid 21;
  3620.     procedure SetShapesDefaultProperties; dispid 22;
  3621.     function Ungroup: ShapeRange; dispid 23;
  3622.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); dispid 24;
  3623.     property Adjustments: Adjustments readonly dispid 100;
  3624.     property AutoShapeType: MsoAutoShapeType dispid 101;
  3625.     property BlackWhiteMode: MsoBlackWhiteMode dispid 102;
  3626.     property Callout: CalloutFormat readonly dispid 103;
  3627.     property ConnectionSiteCount: SYSINT readonly dispid 104;
  3628.     property Connector: MsoTriState readonly dispid 105;
  3629.     property ConnectorFormat: ConnectorFormat readonly dispid 106;
  3630.     property Fill: FillFormat readonly dispid 107;
  3631.     property GroupItems: GroupShapes readonly dispid 108;
  3632.     property Height: Single dispid 109;
  3633.     property HorizontalFlip: MsoTriState readonly dispid 110;
  3634.     property Left: Single dispid 111;
  3635.     property Line: LineFormat readonly dispid 112;
  3636.     property LockAspectRatio: MsoTriState dispid 113;
  3637.     property Name: WideString dispid 115;
  3638.     property Nodes: ShapeNodes readonly dispid 116;
  3639.     property Rotation: Single dispid 117;
  3640.     property PictureFormat: PictureFormat readonly dispid 118;
  3641.     property Shadow: ShadowFormat readonly dispid 119;
  3642.     property TextEffect: TextEffectFormat readonly dispid 120;
  3643.     property TextFrame: TextFrame readonly dispid 121;
  3644.     property ThreeD: ThreeDFormat readonly dispid 122;
  3645.     property Top: Single dispid 123;
  3646.     property Type_: MsoShapeType readonly dispid 124;
  3647.     property VerticalFlip: MsoTriState readonly dispid 125;
  3648.     property Vertices: OleVariant readonly dispid 126;
  3649.     property Visible: MsoTriState dispid 127;
  3650.     property Width: Single dispid 128;
  3651.     property ZOrderPosition: SYSINT readonly dispid 129;
  3652.     property Script: Script readonly dispid 130;
  3653.     property AlternativeText: WideString dispid 131;
  3654.     property Application_: IDispatch readonly dispid 1610743808;
  3655.     property Creator: Integer readonly dispid 1610743809;
  3656.   end;
  3657.  
  3658. // *********************************************************************//
  3659. // Interface: ShapeRange
  3660. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3661. // GUID:      {000C031D-0000-0000-C000-000000000046}
  3662. // *********************************************************************//
  3663.   ShapeRange = interface(_IMsoDispObj)
  3664.     ['{000C031D-0000-0000-C000-000000000046}']
  3665.     function Get_Parent: IDispatch; safecall;
  3666.     function Get_Count: SYSINT; safecall;
  3667.     function Item(Index: OleVariant): Shape; safecall;
  3668.     function Get__NewEnum: IUnknown; safecall;
  3669.     procedure Align(AlignCmd: MsoAlignCmd; RelativeTo: MsoTriState); safecall;
  3670.     procedure Apply; safecall;
  3671.     procedure Delete; safecall;
  3672.     procedure Distribute(DistributeCmd: MsoDistributeCmd; RelativeTo: MsoTriState); safecall;
  3673.     function Duplicate: ShapeRange; safecall;
  3674.     procedure Flip(FlipCmd: MsoFlipCmd); safecall;
  3675.     procedure IncrementLeft(Increment: Single); safecall;
  3676.     procedure IncrementRotation(Increment: Single); safecall;
  3677.     procedure IncrementTop(Increment: Single); safecall;
  3678.     function Group: Shape; safecall;
  3679.     procedure PickUp; safecall;
  3680.     function Regroup: Shape; safecall;
  3681.     procedure RerouteConnections; safecall;
  3682.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  3683.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); safecall;
  3684.     procedure Select(Replace: OleVariant); safecall;
  3685.     procedure SetShapesDefaultProperties; safecall;
  3686.     function Ungroup: ShapeRange; safecall;
  3687.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); safecall;
  3688.     function Get_Adjustments: Adjustments; safecall;
  3689.     function Get_AutoShapeType: MsoAutoShapeType; safecall;
  3690.     procedure Set_AutoShapeType(AutoShapeType: MsoAutoShapeType); safecall;
  3691.     function Get_BlackWhiteMode: MsoBlackWhiteMode; safecall;
  3692.     procedure Set_BlackWhiteMode(BlackWhiteMode: MsoBlackWhiteMode); safecall;
  3693.     function Get_Callout: CalloutFormat; safecall;
  3694.     function Get_ConnectionSiteCount: SYSINT; safecall;
  3695.     function Get_Connector: MsoTriState; safecall;
  3696.     function Get_ConnectorFormat: ConnectorFormat; safecall;
  3697.     function Get_Fill: FillFormat; safecall;
  3698.     function Get_GroupItems: GroupShapes; safecall;
  3699.     function Get_Height: Single; safecall;
  3700.     procedure Set_Height(Height: Single); safecall;
  3701.     function Get_HorizontalFlip: MsoTriState; safecall;
  3702.     function Get_Left: Single; safecall;
  3703.     procedure Set_Left(Left: Single); safecall;
  3704.     function Get_Line: LineFormat; safecall;
  3705.     function Get_LockAspectRatio: MsoTriState; safecall;
  3706.     procedure Set_LockAspectRatio(LockAspectRatio: MsoTriState); safecall;
  3707.     function Get_Name: WideString; safecall;
  3708.     procedure Set_Name(const Name: WideString); safecall;
  3709.     function Get_Nodes: ShapeNodes; safecall;
  3710.     function Get_Rotation: Single; safecall;
  3711.     procedure Set_Rotation(Rotation: Single); safecall;
  3712.     function Get_PictureFormat: PictureFormat; safecall;
  3713.     function Get_Shadow: ShadowFormat; safecall;
  3714.     function Get_TextEffect: TextEffectFormat; safecall;
  3715.     function Get_TextFrame: TextFrame; safecall;
  3716.     function Get_ThreeD: ThreeDFormat; safecall;
  3717.     function Get_Top: Single; safecall;
  3718.     procedure Set_Top(Top: Single); safecall;
  3719.     function Get_Type_: MsoShapeType; safecall;
  3720.     function Get_VerticalFlip: MsoTriState; safecall;
  3721.     function Get_Vertices: OleVariant; safecall;
  3722.     function Get_Visible: MsoTriState; safecall;
  3723.     procedure Set_Visible(Visible: MsoTriState); safecall;
  3724.     function Get_Width: Single; safecall;
  3725.     procedure Set_Width(Width: Single); safecall;
  3726.     function Get_ZOrderPosition: SYSINT; safecall;
  3727.     function Get_Script: Script; safecall;
  3728.     function Get_AlternativeText: WideString; safecall;
  3729.     procedure Set_AlternativeText(const AlternativeText: WideString); safecall;
  3730.     property Parent: IDispatch read Get_Parent;
  3731.     property Count: SYSINT read Get_Count;
  3732.     property _NewEnum: IUnknown read Get__NewEnum;
  3733.     property Adjustments: Adjustments read Get_Adjustments;
  3734.     property AutoShapeType: MsoAutoShapeType read Get_AutoShapeType write Set_AutoShapeType;
  3735.     property BlackWhiteMode: MsoBlackWhiteMode read Get_BlackWhiteMode write Set_BlackWhiteMode;
  3736.     property Callout: CalloutFormat read Get_Callout;
  3737.     property ConnectionSiteCount: SYSINT read Get_ConnectionSiteCount;
  3738.     property Connector: MsoTriState read Get_Connector;
  3739.     property ConnectorFormat: ConnectorFormat read Get_ConnectorFormat;
  3740.     property Fill: FillFormat read Get_Fill;
  3741.     property GroupItems: GroupShapes read Get_GroupItems;
  3742.     property Height: Single read Get_Height write Set_Height;
  3743.     property HorizontalFlip: MsoTriState read Get_HorizontalFlip;
  3744.     property Left: Single read Get_Left write Set_Left;
  3745.     property Line: LineFormat read Get_Line;
  3746.     property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
  3747.     property Name: WideString read Get_Name write Set_Name;
  3748.     property Nodes: ShapeNodes read Get_Nodes;
  3749.     property Rotation: Single read Get_Rotation write Set_Rotation;
  3750.     property PictureFormat: PictureFormat read Get_PictureFormat;
  3751.     property Shadow: ShadowFormat read Get_Shadow;
  3752.     property TextEffect: TextEffectFormat read Get_TextEffect;
  3753.     property TextFrame: TextFrame read Get_TextFrame;
  3754.     property ThreeD: ThreeDFormat read Get_ThreeD;
  3755.     property Top: Single read Get_Top write Set_Top;
  3756.     property Type_: MsoShapeType read Get_Type_;
  3757.     property VerticalFlip: MsoTriState read Get_VerticalFlip;
  3758.     property Vertices: OleVariant read Get_Vertices;
  3759.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  3760.     property Width: Single read Get_Width write Set_Width;
  3761.     property ZOrderPosition: SYSINT read Get_ZOrderPosition;
  3762.     property Script: Script read Get_Script;
  3763.     property AlternativeText: WideString read Get_AlternativeText write Set_AlternativeText;
  3764.   end;
  3765.  
  3766. // *********************************************************************//
  3767. // DispIntf:  ShapeRangeDisp
  3768. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3769. // GUID:      {000C031D-0000-0000-C000-000000000046}
  3770. // *********************************************************************//
  3771.   ShapeRangeDisp = dispinterface
  3772.     ['{000C031D-0000-0000-C000-000000000046}']
  3773.     property Parent: IDispatch readonly dispid 1;
  3774.     property Count: SYSINT readonly dispid 2;
  3775.     function Item(Index: OleVariant): Shape; dispid 0;
  3776.     property _NewEnum: IUnknown readonly dispid -4;
  3777.     procedure Align(AlignCmd: MsoAlignCmd; RelativeTo: MsoTriState); dispid 10;
  3778.     procedure Apply; dispid 11;
  3779.     procedure Delete; dispid 12;
  3780.     procedure Distribute(DistributeCmd: MsoDistributeCmd; RelativeTo: MsoTriState); dispid 13;
  3781.     function Duplicate: ShapeRange; dispid 14;
  3782.     procedure Flip(FlipCmd: MsoFlipCmd); dispid 15;
  3783.     procedure IncrementLeft(Increment: Single); dispid 16;
  3784.     procedure IncrementRotation(Increment: Single); dispid 17;
  3785.     procedure IncrementTop(Increment: Single); dispid 18;
  3786.     function Group: Shape; dispid 19;
  3787.     procedure PickUp; dispid 20;
  3788.     function Regroup: Shape; dispid 21;
  3789.     procedure RerouteConnections; dispid 22;
  3790.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 23;
  3791.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; fScale: MsoScaleFrom); dispid 24;
  3792.     procedure Select(Replace: OleVariant); dispid 25;
  3793.     procedure SetShapesDefaultProperties; dispid 26;
  3794.     function Ungroup: ShapeRange; dispid 27;
  3795.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); dispid 28;
  3796.     property Adjustments: Adjustments readonly dispid 100;
  3797.     property AutoShapeType: MsoAutoShapeType dispid 101;
  3798.     property BlackWhiteMode: MsoBlackWhiteMode dispid 102;
  3799.     property Callout: CalloutFormat readonly dispid 103;
  3800.     property ConnectionSiteCount: SYSINT readonly dispid 104;
  3801.     property Connector: MsoTriState readonly dispid 105;
  3802.     property ConnectorFormat: ConnectorFormat readonly dispid 106;
  3803.     property Fill: FillFormat readonly dispid 107;
  3804.     property GroupItems: GroupShapes readonly dispid 108;
  3805.     property Height: Single dispid 109;
  3806.     property HorizontalFlip: MsoTriState readonly dispid 110;
  3807.     property Left: Single dispid 111;
  3808.     property Line: LineFormat readonly dispid 112;
  3809.     property LockAspectRatio: MsoTriState dispid 113;
  3810.     property Name: WideString dispid 115;
  3811.     property Nodes: ShapeNodes readonly dispid 116;
  3812.     property Rotation: Single dispid 117;
  3813.     property PictureFormat: PictureFormat readonly dispid 118;
  3814.     property Shadow: ShadowFormat readonly dispid 119;
  3815.     property TextEffect: TextEffectFormat readonly dispid 120;
  3816.     property TextFrame: TextFrame readonly dispid 121;
  3817.     property ThreeD: ThreeDFormat readonly dispid 122;
  3818.     property Top: Single dispid 123;
  3819.     property Type_: MsoShapeType readonly dispid 124;
  3820.     property VerticalFlip: MsoTriState readonly dispid 125;
  3821.     property Vertices: OleVariant readonly dispid 126;
  3822.     property Visible: MsoTriState dispid 127;
  3823.     property Width: Single dispid 128;
  3824.     property ZOrderPosition: SYSINT readonly dispid 129;
  3825.     property Script: Script readonly dispid 130;
  3826.     property AlternativeText: WideString dispid 131;
  3827.     property Application_: IDispatch readonly dispid 1610743808;
  3828.     property Creator: Integer readonly dispid 1610743809;
  3829.   end;
  3830.  
  3831. // *********************************************************************//
  3832. // Interface: Shapes
  3833. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3834. // GUID:      {000C031E-0000-0000-C000-000000000046}
  3835. // *********************************************************************//
  3836.   Shapes = interface(_IMsoDispObj)
  3837.     ['{000C031E-0000-0000-C000-000000000046}']
  3838.     function Get_Parent: IDispatch; safecall;
  3839.     function Get_Count: SYSINT; safecall;
  3840.     function Item(Index: OleVariant): Shape; safecall;
  3841.     function Get__NewEnum: IUnknown; safecall;
  3842.     function AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
  3843.                         Height: Single): Shape; safecall;
  3844.     function AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
  3845.                           EndY: Single): Shape; safecall;
  3846.     function AddCurve(SafeArrayOfPoints: OleVariant): Shape; safecall;
  3847.     function AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3848.                       Height: Single): Shape; safecall;
  3849.     function AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single): Shape; safecall;
  3850.     function AddPicture(const FileName: WideString; LinkToFile: MsoTriState; 
  3851.                         SaveWithDocument: MsoTriState; Left: Single; Top: Single; Width: Single; 
  3852.                         Height: Single): Shape; safecall;
  3853.     function AddPolyline(SafeArrayOfPoints: OleVariant): Shape; safecall;
  3854.     function AddShape(Type_: MsoAutoShapeType; Left: Single; Top: Single; Width: Single; 
  3855.                       Height: Single): Shape; safecall;
  3856.     function AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
  3857.                            const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
  3858.                            FontItalic: MsoTriState; Left: Single; Top: Single): Shape; safecall;
  3859.     function AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3860.                         Height: Single): Shape; safecall;
  3861.     function BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; safecall;
  3862.     function Range(Index: OleVariant): ShapeRange; safecall;
  3863.     procedure SelectAll; safecall;
  3864.     function Get_Background: Shape; safecall;
  3865.     function Get_Default: Shape; safecall;
  3866.     property Parent: IDispatch read Get_Parent;
  3867.     property Count: SYSINT read Get_Count;
  3868.     property _NewEnum: IUnknown read Get__NewEnum;
  3869.     property Background: Shape read Get_Background;
  3870.     property Default: Shape read Get_Default;
  3871.   end;
  3872.  
  3873. // *********************************************************************//
  3874. // DispIntf:  ShapesDisp
  3875. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3876. // GUID:      {000C031E-0000-0000-C000-000000000046}
  3877. // *********************************************************************//
  3878.   ShapesDisp = dispinterface
  3879.     ['{000C031E-0000-0000-C000-000000000046}']
  3880.     property Parent: IDispatch readonly dispid 1;
  3881.     property Count: SYSINT readonly dispid 2;
  3882.     function Item(Index: OleVariant): Shape; dispid 0;
  3883.     property _NewEnum: IUnknown readonly dispid -4;
  3884.     function AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
  3885.                         Height: Single): Shape; dispid 10;
  3886.     function AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
  3887.                           EndY: Single): Shape; dispid 11;
  3888.     function AddCurve(SafeArrayOfPoints: OleVariant): Shape; dispid 12;
  3889.     function AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3890.                       Height: Single): Shape; dispid 13;
  3891.     function AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single): Shape; dispid 14;
  3892.     function AddPicture(const FileName: WideString; LinkToFile: MsoTriState; 
  3893.                         SaveWithDocument: MsoTriState; Left: Single; Top: Single; Width: Single; 
  3894.                         Height: Single): Shape; dispid 15;
  3895.     function AddPolyline(SafeArrayOfPoints: OleVariant): Shape; dispid 16;
  3896.     function AddShape(Type_: MsoAutoShapeType; Left: Single; Top: Single; Width: Single; 
  3897.                       Height: Single): Shape; dispid 17;
  3898.     function AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
  3899.                            const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
  3900.                            FontItalic: MsoTriState; Left: Single; Top: Single): Shape; dispid 18;
  3901.     function AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  3902.                         Height: Single): Shape; dispid 19;
  3903.     function BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; dispid 20;
  3904.     function Range(Index: OleVariant): ShapeRange; dispid 21;
  3905.     procedure SelectAll; dispid 22;
  3906.     property Background: Shape readonly dispid 100;
  3907.     property Default: Shape readonly dispid 101;
  3908.     property Application_: IDispatch readonly dispid 1610743808;
  3909.     property Creator: Integer readonly dispid 1610743809;
  3910.   end;
  3911.  
  3912. // *********************************************************************//
  3913. // Interface: TextEffectFormat
  3914. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3915. // GUID:      {000C031F-0000-0000-C000-000000000046}
  3916. // *********************************************************************//
  3917.   TextEffectFormat = interface(_IMsoDispObj)
  3918.     ['{000C031F-0000-0000-C000-000000000046}']
  3919.     function Get_Parent: IDispatch; safecall;
  3920.     procedure ToggleVerticalText; safecall;
  3921.     function Get_Alignment: MsoTextEffectAlignment; safecall;
  3922.     procedure Set_Alignment(Alignment: MsoTextEffectAlignment); safecall;
  3923.     function Get_FontBold: MsoTriState; safecall;
  3924.     procedure Set_FontBold(FontBold: MsoTriState); safecall;
  3925.     function Get_FontItalic: MsoTriState; safecall;
  3926.     procedure Set_FontItalic(FontItalic: MsoTriState); safecall;
  3927.     function Get_FontName: WideString; safecall;
  3928.     procedure Set_FontName(const FontName: WideString); safecall;
  3929.     function Get_FontSize: Single; safecall;
  3930.     procedure Set_FontSize(FontSize: Single); safecall;
  3931.     function Get_KernedPairs: MsoTriState; safecall;
  3932.     procedure Set_KernedPairs(KernedPairs: MsoTriState); safecall;
  3933.     function Get_NormalizedHeight: MsoTriState; safecall;
  3934.     procedure Set_NormalizedHeight(NormalizedHeight: MsoTriState); safecall;
  3935.     function Get_PresetShape: MsoPresetTextEffectShape; safecall;
  3936.     procedure Set_PresetShape(PresetShape: MsoPresetTextEffectShape); safecall;
  3937.     function Get_PresetTextEffect: MsoPresetTextEffect; safecall;
  3938.     procedure Set_PresetTextEffect(Preset: MsoPresetTextEffect); safecall;
  3939.     function Get_RotatedChars: MsoTriState; safecall;
  3940.     procedure Set_RotatedChars(RotatedChars: MsoTriState); safecall;
  3941.     function Get_Text: WideString; safecall;
  3942.     procedure Set_Text(const Text: WideString); safecall;
  3943.     function Get_Tracking: Single; safecall;
  3944.     procedure Set_Tracking(Tracking: Single); safecall;
  3945.     property Parent: IDispatch read Get_Parent;
  3946.     property Alignment: MsoTextEffectAlignment read Get_Alignment write Set_Alignment;
  3947.     property FontBold: MsoTriState read Get_FontBold write Set_FontBold;
  3948.     property FontItalic: MsoTriState read Get_FontItalic write Set_FontItalic;
  3949.     property FontName: WideString read Get_FontName write Set_FontName;
  3950.     property FontSize: Single read Get_FontSize write Set_FontSize;
  3951.     property KernedPairs: MsoTriState read Get_KernedPairs write Set_KernedPairs;
  3952.     property NormalizedHeight: MsoTriState read Get_NormalizedHeight write Set_NormalizedHeight;
  3953.     property PresetShape: MsoPresetTextEffectShape read Get_PresetShape write Set_PresetShape;
  3954.     property PresetTextEffect: MsoPresetTextEffect read Get_PresetTextEffect write Set_PresetTextEffect;
  3955.     property RotatedChars: MsoTriState read Get_RotatedChars write Set_RotatedChars;
  3956.     property Text: WideString read Get_Text write Set_Text;
  3957.     property Tracking: Single read Get_Tracking write Set_Tracking;
  3958.   end;
  3959.  
  3960. // *********************************************************************//
  3961. // DispIntf:  TextEffectFormatDisp
  3962. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3963. // GUID:      {000C031F-0000-0000-C000-000000000046}
  3964. // *********************************************************************//
  3965.   TextEffectFormatDisp = dispinterface
  3966.     ['{000C031F-0000-0000-C000-000000000046}']
  3967.     property Parent: IDispatch readonly dispid 1;
  3968.     procedure ToggleVerticalText; dispid 10;
  3969.     property Alignment: MsoTextEffectAlignment dispid 100;
  3970.     property FontBold: MsoTriState dispid 101;
  3971.     property FontItalic: MsoTriState dispid 102;
  3972.     property FontName: WideString dispid 103;
  3973.     property FontSize: Single dispid 104;
  3974.     property KernedPairs: MsoTriState dispid 105;
  3975.     property NormalizedHeight: MsoTriState dispid 106;
  3976.     property PresetShape: MsoPresetTextEffectShape dispid 107;
  3977.     property PresetTextEffect: MsoPresetTextEffect dispid 108;
  3978.     property RotatedChars: MsoTriState dispid 109;
  3979.     property Text: WideString dispid 110;
  3980.     property Tracking: Single dispid 111;
  3981.     property Application_: IDispatch readonly dispid 1610743808;
  3982.     property Creator: Integer readonly dispid 1610743809;
  3983.   end;
  3984.  
  3985. // *********************************************************************//
  3986. // Interface: TextFrame
  3987. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3988. // GUID:      {000C0320-0000-0000-C000-000000000046}
  3989. // *********************************************************************//
  3990.   TextFrame = interface(_IMsoDispObj)
  3991.     ['{000C0320-0000-0000-C000-000000000046}']
  3992.     function Get_Parent: IDispatch; safecall;
  3993.     function Get_MarginBottom: Single; safecall;
  3994.     procedure Set_MarginBottom(MarginBottom: Single); safecall;
  3995.     function Get_MarginLeft: Single; safecall;
  3996.     procedure Set_MarginLeft(MarginLeft: Single); safecall;
  3997.     function Get_MarginRight: Single; safecall;
  3998.     procedure Set_MarginRight(MarginRight: Single); safecall;
  3999.     function Get_MarginTop: Single; safecall;
  4000.     procedure Set_MarginTop(MarginTop: Single); safecall;
  4001.     function Get_Orientation: MsoTextOrientation; safecall;
  4002.     procedure Set_Orientation(Orientation: MsoTextOrientation); safecall;
  4003.     property Parent: IDispatch read Get_Parent;
  4004.     property MarginBottom: Single read Get_MarginBottom write Set_MarginBottom;
  4005.     property MarginLeft: Single read Get_MarginLeft write Set_MarginLeft;
  4006.     property MarginRight: Single read Get_MarginRight write Set_MarginRight;
  4007.     property MarginTop: Single read Get_MarginTop write Set_MarginTop;
  4008.     property Orientation: MsoTextOrientation read Get_Orientation write Set_Orientation;
  4009.   end;
  4010.  
  4011. // *********************************************************************//
  4012. // DispIntf:  TextFrameDisp
  4013. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4014. // GUID:      {000C0320-0000-0000-C000-000000000046}
  4015. // *********************************************************************//
  4016.   TextFrameDisp = dispinterface
  4017.     ['{000C0320-0000-0000-C000-000000000046}']
  4018.     property Parent: IDispatch readonly dispid 1;
  4019.     property MarginBottom: Single dispid 100;
  4020.     property MarginLeft: Single dispid 101;
  4021.     property MarginRight: Single dispid 102;
  4022.     property MarginTop: Single dispid 103;
  4023.     property Orientation: MsoTextOrientation dispid 104;
  4024.     property Application_: IDispatch readonly dispid 1610743808;
  4025.     property Creator: Integer readonly dispid 1610743809;
  4026.   end;
  4027.  
  4028. // *********************************************************************//
  4029. // Interface: ThreeDFormat
  4030. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4031. // GUID:      {000C0321-0000-0000-C000-000000000046}
  4032. // *********************************************************************//
  4033.   ThreeDFormat = interface(_IMsoDispObj)
  4034.     ['{000C0321-0000-0000-C000-000000000046}']
  4035.     function Get_Parent: IDispatch; safecall;
  4036.     procedure IncrementRotationX(Increment: Single); safecall;
  4037.     procedure IncrementRotationY(Increment: Single); safecall;
  4038.     procedure ResetRotation; safecall;
  4039.     procedure SetThreeDFormat(PresetThreeDFormat: MsoPresetThreeDFormat); safecall;
  4040.     procedure SetExtrusionDirection(PresetExtrusionDirection: MsoPresetExtrusionDirection); safecall;
  4041.     function Get_Depth: Single; safecall;
  4042.     procedure Set_Depth(Depth: Single); safecall;
  4043.     function Get_ExtrusionColor: ColorFormat; safecall;
  4044.     function Get_ExtrusionColorType: MsoExtrusionColorType; safecall;
  4045.     procedure Set_ExtrusionColorType(ExtrusionColorType: MsoExtrusionColorType); safecall;
  4046.     function Get_Perspective: MsoTriState; safecall;
  4047.     procedure Set_Perspective(Perspective: MsoTriState); safecall;
  4048.     function Get_PresetExtrusionDirection: MsoPresetExtrusionDirection; safecall;
  4049.     function Get_PresetLightingDirection: MsoPresetLightingDirection; safecall;
  4050.     procedure Set_PresetLightingDirection(PresetLightingDirection: MsoPresetLightingDirection); safecall;
  4051.     function Get_PresetLightingSoftness: MsoPresetLightingSoftness; safecall;
  4052.     procedure Set_PresetLightingSoftness(PresetLightingSoftness: MsoPresetLightingSoftness); safecall;
  4053.     function Get_PresetMaterial: MsoPresetMaterial; safecall;
  4054.     procedure Set_PresetMaterial(PresetMaterial: MsoPresetMaterial); safecall;
  4055.     function Get_PresetThreeDFormat: MsoPresetThreeDFormat; safecall;
  4056.     function Get_RotationX: Single; safecall;
  4057.     procedure Set_RotationX(RotationX: Single); safecall;
  4058.     function Get_RotationY: Single; safecall;
  4059.     procedure Set_RotationY(RotationY: Single); safecall;
  4060.     function Get_Visible: MsoTriState; safecall;
  4061.     procedure Set_Visible(Visible: MsoTriState); safecall;
  4062.     property Parent: IDispatch read Get_Parent;
  4063.     property Depth: Single read Get_Depth write Set_Depth;
  4064.     property ExtrusionColor: ColorFormat read Get_ExtrusionColor;
  4065.     property ExtrusionColorType: MsoExtrusionColorType read Get_ExtrusionColorType write Set_ExtrusionColorType;
  4066.     property Perspective: MsoTriState read Get_Perspective write Set_Perspective;
  4067.     property PresetExtrusionDirection: MsoPresetExtrusionDirection read Get_PresetExtrusionDirection;
  4068.     property PresetLightingDirection: MsoPresetLightingDirection read Get_PresetLightingDirection write Set_PresetLightingDirection;
  4069.     property PresetLightingSoftness: MsoPresetLightingSoftness read Get_PresetLightingSoftness write Set_PresetLightingSoftness;
  4070.     property PresetMaterial: MsoPresetMaterial read Get_PresetMaterial write Set_PresetMaterial;
  4071.     property PresetThreeDFormat: MsoPresetThreeDFormat read Get_PresetThreeDFormat;
  4072.     property RotationX: Single read Get_RotationX write Set_RotationX;
  4073.     property RotationY: Single read Get_RotationY write Set_RotationY;
  4074.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  4075.   end;
  4076.  
  4077. // *********************************************************************//
  4078. // DispIntf:  ThreeDFormatDisp
  4079. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4080. // GUID:      {000C0321-0000-0000-C000-000000000046}
  4081. // *********************************************************************//
  4082.   ThreeDFormatDisp = dispinterface
  4083.     ['{000C0321-0000-0000-C000-000000000046}']
  4084.     property Parent: IDispatch readonly dispid 1;
  4085.     procedure IncrementRotationX(Increment: Single); dispid 10;
  4086.     procedure IncrementRotationY(Increment: Single); dispid 11;
  4087.     procedure ResetRotation; dispid 12;
  4088.     procedure SetThreeDFormat(PresetThreeDFormat: MsoPresetThreeDFormat); dispid 13;
  4089.     procedure SetExtrusionDirection(PresetExtrusionDirection: MsoPresetExtrusionDirection); dispid 14;
  4090.     property Depth: Single dispid 100;
  4091.     property ExtrusionColor: ColorFormat readonly dispid 101;
  4092.     property ExtrusionColorType: MsoExtrusionColorType dispid 102;
  4093.     property Perspective: MsoTriState dispid 103;
  4094.     property PresetExtrusionDirection: MsoPresetExtrusionDirection readonly dispid 104;
  4095.     property PresetLightingDirection: MsoPresetLightingDirection dispid 105;
  4096.     property PresetLightingSoftness: MsoPresetLightingSoftness dispid 106;
  4097.     property PresetMaterial: MsoPresetMaterial dispid 107;
  4098.     property PresetThreeDFormat: MsoPresetThreeDFormat readonly dispid 108;
  4099.     property RotationX: Single dispid 109;
  4100.     property RotationY: Single dispid 110;
  4101.     property Visible: MsoTriState dispid 111;
  4102.     property Application_: IDispatch readonly dispid 1610743808;
  4103.     property Creator: Integer readonly dispid 1610743809;
  4104.   end;
  4105.  
  4106. // *********************************************************************//
  4107. // Interface: IMsoDispCagNotifySink
  4108. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4109. // GUID:      {000C0359-0000-0000-C000-000000000046}
  4110. // *********************************************************************//
  4111.   IMsoDispCagNotifySink = interface(IDispatch)
  4112.     ['{000C0359-0000-0000-C000-000000000046}']
  4113.     procedure InsertClip(const pClipMoniker: IUnknown; const pItemMoniker: IUnknown); safecall;
  4114.     procedure WindowIsClosing; safecall;
  4115.   end;
  4116.  
  4117. // *********************************************************************//
  4118. // DispIntf:  IMsoDispCagNotifySinkDisp
  4119. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4120. // GUID:      {000C0359-0000-0000-C000-000000000046}
  4121. // *********************************************************************//
  4122.   IMsoDispCagNotifySinkDisp = dispinterface
  4123.     ['{000C0359-0000-0000-C000-000000000046}']
  4124.     procedure InsertClip(const pClipMoniker: IUnknown; const pItemMoniker: IUnknown); dispid 1;
  4125.     procedure WindowIsClosing; dispid 2;
  4126.   end;
  4127.  
  4128. // *********************************************************************//
  4129. // Interface: Balloon
  4130. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4131. // GUID:      {000C0324-0000-0000-C000-000000000046}
  4132. // *********************************************************************//
  4133.   Balloon = interface(_IMsoDispObj)
  4134.     ['{000C0324-0000-0000-C000-000000000046}']
  4135.     function Get_Parent: IDispatch; safecall;
  4136.     function Get_Checkboxes: IDispatch; safecall;
  4137.     function Get_Labels: IDispatch; safecall;
  4138.     procedure Set_BalloonType(pbty: MsoBalloonType); safecall;
  4139.     function Get_BalloonType: MsoBalloonType; safecall;
  4140.     procedure Set_Icon(picn: MsoIconType); safecall;
  4141.     function Get_Icon: MsoIconType; safecall;
  4142.     procedure Set_Heading(const pbstr: WideString); safecall;
  4143.     function Get_Heading: WideString; safecall;
  4144.     procedure Set_Text(const pbstr: WideString); safecall;
  4145.     function Get_Text: WideString; safecall;
  4146.     procedure Set_Mode(pmd: MsoModeType); safecall;
  4147.     function Get_Mode: MsoModeType; safecall;
  4148.     procedure Set_Animation(pfca: MsoAnimationType); safecall;
  4149.     function Get_Animation: MsoAnimationType; safecall;
  4150.     procedure Set_Button(psbs: MsoButtonSetType); safecall;
  4151.     function Get_Button: MsoButtonSetType; safecall;
  4152.     procedure Set_Callback(const pbstr: WideString); safecall;
  4153.     function Get_Callback: WideString; safecall;
  4154.     procedure Set_Private_(plPrivate: Integer); safecall;
  4155.     function Get_Private_: Integer; safecall;
  4156.     procedure SetAvoidRectangle(Left: SYSINT; Top: SYSINT; Right: SYSINT; Bottom: SYSINT); safecall;
  4157.     function Get_Name: WideString; safecall;
  4158.     function Show: MsoBalloonButtonType; safecall;
  4159.     procedure Close; safecall;
  4160.     property Parent: IDispatch read Get_Parent;
  4161.     property Checkboxes: IDispatch read Get_Checkboxes;
  4162.     property Labels: IDispatch read Get_Labels;
  4163.     property BalloonType: MsoBalloonType read Get_BalloonType write Set_BalloonType;
  4164.     property Icon: MsoIconType read Get_Icon write Set_Icon;
  4165.     property Heading: WideString read Get_Heading write Set_Heading;
  4166.     property Text: WideString read Get_Text write Set_Text;
  4167.     property Mode: MsoModeType read Get_Mode write Set_Mode;
  4168.     property Animation: MsoAnimationType read Get_Animation write Set_Animation;
  4169.     property Button: MsoButtonSetType read Get_Button write Set_Button;
  4170.     property Callback: WideString read Get_Callback write Set_Callback;
  4171.     property Private_: Integer read Get_Private_ write Set_Private_;
  4172.     property Name: WideString read Get_Name;
  4173.   end;
  4174.  
  4175. // *********************************************************************//
  4176. // DispIntf:  BalloonDisp
  4177. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4178. // GUID:      {000C0324-0000-0000-C000-000000000046}
  4179. // *********************************************************************//
  4180.   BalloonDisp = dispinterface
  4181.     ['{000C0324-0000-0000-C000-000000000046}']
  4182.     property Parent: IDispatch readonly dispid 1610809344;
  4183.     property Checkboxes: IDispatch readonly dispid 1610809345;
  4184.     property Labels: IDispatch readonly dispid 1610809346;
  4185.     property BalloonType: MsoBalloonType dispid 1610809347;
  4186.     property Icon: MsoIconType dispid 1610809349;
  4187.     property Heading: WideString dispid 1610809351;
  4188.     property Text: WideString dispid 1610809353;
  4189.     property Mode: MsoModeType dispid 1610809355;
  4190.     property Animation: MsoAnimationType dispid 1610809357;
  4191.     property Button: MsoButtonSetType dispid 1610809359;
  4192.     property Callback: WideString dispid 1610809361;
  4193.     property Private_: Integer dispid 1610809363;
  4194.     procedure SetAvoidRectangle(Left: SYSINT; Top: SYSINT; Right: SYSINT; Bottom: SYSINT); dispid 1610809365;
  4195.     property Name: WideString readonly dispid 1610809366;
  4196.     function Show: MsoBalloonButtonType; dispid 1610809367;
  4197.     procedure Close; dispid 1610809368;
  4198.     property Application_: IDispatch readonly dispid 1610743808;
  4199.     property Creator: Integer readonly dispid 1610743809;
  4200.   end;
  4201.  
  4202. // *********************************************************************//
  4203. // Interface: BalloonCheckboxes
  4204. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4205. // GUID:      {000C0326-0000-0000-C000-000000000046}
  4206. // *********************************************************************//
  4207.   BalloonCheckboxes = interface(_IMsoDispObj)
  4208.     ['{000C0326-0000-0000-C000-000000000046}']
  4209.     function Get_Name: WideString; safecall;
  4210.     function Get_Parent: IDispatch; safecall;
  4211.     function Get_Item(Index: SYSINT): IDispatch; safecall;
  4212.     function Get_Count: SYSINT; safecall;
  4213.     procedure Set_Count(pccbx: SYSINT); safecall;
  4214.     function Get__NewEnum: IUnknown; safecall;
  4215.     property Name: WideString read Get_Name;
  4216.     property Parent: IDispatch read Get_Parent;
  4217.     property Item[Index: SYSINT]: IDispatch read Get_Item; default;
  4218.     property Count: SYSINT read Get_Count write Set_Count;
  4219.     property _NewEnum: IUnknown read Get__NewEnum;
  4220.   end;
  4221.  
  4222. // *********************************************************************//
  4223. // DispIntf:  BalloonCheckboxesDisp
  4224. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4225. // GUID:      {000C0326-0000-0000-C000-000000000046}
  4226. // *********************************************************************//
  4227.   BalloonCheckboxesDisp = dispinterface
  4228.     ['{000C0326-0000-0000-C000-000000000046}']
  4229.     property Name: WideString readonly dispid 1610809344;
  4230.     property Parent: IDispatch readonly dispid 1610809345;
  4231.     property Item[Index: SYSINT]: IDispatch readonly dispid 0; default;
  4232.     property Count: SYSINT dispid 1610809347;
  4233.     property _NewEnum: IUnknown readonly dispid -4;
  4234.     property Application_: IDispatch readonly dispid 1610743808;
  4235.     property Creator: Integer readonly dispid 1610743809;
  4236.   end;
  4237.  
  4238. // *********************************************************************//
  4239. // Interface: BalloonCheckbox
  4240. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4241. // GUID:      {000C0328-0000-0000-C000-000000000046}
  4242. // *********************************************************************//
  4243.   BalloonCheckbox = interface(_IMsoDispObj)
  4244.     ['{000C0328-0000-0000-C000-000000000046}']
  4245.     function Get_Item: WideString; safecall;
  4246.     function Get_Name: WideString; safecall;
  4247.     function Get_Parent: IDispatch; safecall;
  4248.     procedure Set_Checked(pvarfChecked: WordBool); safecall;
  4249.     function Get_Checked: WordBool; safecall;
  4250.     procedure Set_Text(const pbstr: WideString); safecall;
  4251.     function Get_Text: WideString; safecall;
  4252.     property Item: WideString read Get_Item;
  4253.     property Name: WideString read Get_Name;
  4254.     property Parent: IDispatch read Get_Parent;
  4255.     property Checked: WordBool read Get_Checked write Set_Checked;
  4256.     property Text: WideString read Get_Text write Set_Text;
  4257.   end;
  4258.  
  4259. // *********************************************************************//
  4260. // DispIntf:  BalloonCheckboxDisp
  4261. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4262. // GUID:      {000C0328-0000-0000-C000-000000000046}
  4263. // *********************************************************************//
  4264.   BalloonCheckboxDisp = dispinterface
  4265.     ['{000C0328-0000-0000-C000-000000000046}']
  4266.     property Item: WideString readonly dispid 0;
  4267.     property Name: WideString readonly dispid 1610809345;
  4268.     property Parent: IDispatch readonly dispid 1610809346;
  4269.     property Checked: WordBool dispid 1610809347;
  4270.     property Text: WideString dispid 1610809349;
  4271.     property Application_: IDispatch readonly dispid 1610743808;
  4272.     property Creator: Integer readonly dispid 1610743809;
  4273.   end;
  4274.  
  4275. // *********************************************************************//
  4276. // Interface: BalloonLabels
  4277. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4278. // GUID:      {000C032E-0000-0000-C000-000000000046}
  4279. // *********************************************************************//
  4280.   BalloonLabels = interface(_IMsoDispObj)
  4281.     ['{000C032E-0000-0000-C000-000000000046}']
  4282.     function Get_Name: WideString; safecall;
  4283.     function Get_Parent: IDispatch; safecall;
  4284.     function Get_Item(Index: SYSINT): IDispatch; safecall;
  4285.     function Get_Count: SYSINT; safecall;
  4286.     procedure Set_Count(pcwz: SYSINT); safecall;
  4287.     function Get__NewEnum: IUnknown; safecall;
  4288.     property Name: WideString read Get_Name;
  4289.     property Parent: IDispatch read Get_Parent;
  4290.     property Item[Index: SYSINT]: IDispatch read Get_Item; default;
  4291.     property Count: SYSINT read Get_Count write Set_Count;
  4292.     property _NewEnum: IUnknown read Get__NewEnum;
  4293.   end;
  4294.  
  4295. // *********************************************************************//
  4296. // DispIntf:  BalloonLabelsDisp
  4297. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4298. // GUID:      {000C032E-0000-0000-C000-000000000046}
  4299. // *********************************************************************//
  4300.   BalloonLabelsDisp = dispinterface
  4301.     ['{000C032E-0000-0000-C000-000000000046}']
  4302.     property Name: WideString readonly dispid 1610809344;
  4303.     property Parent: IDispatch readonly dispid 1610809345;
  4304.     property Item[Index: SYSINT]: IDispatch readonly dispid 0; default;
  4305.     property Count: SYSINT dispid 1610809347;
  4306.     property _NewEnum: IUnknown readonly dispid -4;
  4307.     property Application_: IDispatch readonly dispid 1610743808;
  4308.     property Creator: Integer readonly dispid 1610743809;
  4309.   end;
  4310.  
  4311. // *********************************************************************//
  4312. // Interface: BalloonLabel
  4313. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4314. // GUID:      {000C0330-0000-0000-C000-000000000046}
  4315. // *********************************************************************//
  4316.   BalloonLabel = interface(_IMsoDispObj)
  4317.     ['{000C0330-0000-0000-C000-000000000046}']
  4318.     function Get_Item: WideString; safecall;
  4319.     function Get_Name: WideString; safecall;
  4320.     function Get_Parent: IDispatch; safecall;
  4321.     procedure Set_Text(const pbstr: WideString); safecall;
  4322.     function Get_Text: WideString; safecall;
  4323.     property Item: WideString read Get_Item;
  4324.     property Name: WideString read Get_Name;
  4325.     property Parent: IDispatch read Get_Parent;
  4326.     property Text: WideString read Get_Text write Set_Text;
  4327.   end;
  4328.  
  4329. // *********************************************************************//
  4330. // DispIntf:  BalloonLabelDisp
  4331. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4332. // GUID:      {000C0330-0000-0000-C000-000000000046}
  4333. // *********************************************************************//
  4334.   BalloonLabelDisp = dispinterface
  4335.     ['{000C0330-0000-0000-C000-000000000046}']
  4336.     property Item: WideString readonly dispid 0;
  4337.     property Name: WideString readonly dispid 1610809345;
  4338.     property Parent: IDispatch readonly dispid 1610809346;
  4339.     property Text: WideString dispid 1610809347;
  4340.     property Application_: IDispatch readonly dispid 1610743808;
  4341.     property Creator: Integer readonly dispid 1610743809;
  4342.   end;
  4343.  
  4344. // *********************************************************************//
  4345. // Interface: AnswerWizardFiles
  4346. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4347. // GUID:      {000C0361-0000-0000-C000-000000000046}
  4348. // *********************************************************************//
  4349.   AnswerWizardFiles = interface(_IMsoDispObj)
  4350.     ['{000C0361-0000-0000-C000-000000000046}']
  4351.     function Get_Parent: IDispatch; safecall;
  4352.     function Get_Item(Index: SYSINT): WideString; safecall;
  4353.     function Get_Count: SYSINT; safecall;
  4354.     procedure Add(const FileName: WideString); safecall;
  4355.     procedure Delete(const FileName: WideString); safecall;
  4356.     property Parent: IDispatch read Get_Parent;
  4357.     property Item[Index: SYSINT]: WideString read Get_Item; default;
  4358.     property Count: SYSINT read Get_Count;
  4359.   end;
  4360.  
  4361. // *********************************************************************//
  4362. // DispIntf:  AnswerWizardFilesDisp
  4363. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4364. // GUID:      {000C0361-0000-0000-C000-000000000046}
  4365. // *********************************************************************//
  4366.   AnswerWizardFilesDisp = dispinterface
  4367.     ['{000C0361-0000-0000-C000-000000000046}']
  4368.     property Parent: IDispatch readonly dispid 1610809344;
  4369.     property Item[Index: SYSINT]: WideString readonly dispid 0; default;
  4370.     property Count: SYSINT readonly dispid 1610809346;
  4371.     procedure Add(const FileName: WideString); dispid 1610809347;
  4372.     procedure Delete(const FileName: WideString); dispid 1610809348;
  4373.     property Application_: IDispatch readonly dispid 1610743808;
  4374.     property Creator: Integer readonly dispid 1610743809;
  4375.   end;
  4376.  
  4377. // *********************************************************************//
  4378. // Interface: AnswerWizard
  4379. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4380. // GUID:      {000C0360-0000-0000-C000-000000000046}
  4381. // *********************************************************************//
  4382.   AnswerWizard = interface(_IMsoDispObj)
  4383.     ['{000C0360-0000-0000-C000-000000000046}']
  4384.     function Get_Parent: IDispatch; safecall;
  4385.     function Get_Files: AnswerWizardFiles; safecall;
  4386.     procedure ClearFileList; safecall;
  4387.     procedure ResetFileList; safecall;
  4388.     property Parent: IDispatch read Get_Parent;
  4389.     property Files: AnswerWizardFiles read Get_Files;
  4390.   end;
  4391.  
  4392. // *********************************************************************//
  4393. // DispIntf:  AnswerWizardDisp
  4394. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4395. // GUID:      {000C0360-0000-0000-C000-000000000046}
  4396. // *********************************************************************//
  4397.   AnswerWizardDisp = dispinterface
  4398.     ['{000C0360-0000-0000-C000-000000000046}']
  4399.     property Parent: IDispatch readonly dispid 1610809344;
  4400.     property Files: AnswerWizardFiles readonly dispid 1610809345;
  4401.     procedure ClearFileList; dispid 1610809346;
  4402.     procedure ResetFileList; dispid 1610809347;
  4403.     property Application_: IDispatch readonly dispid 1610743808;
  4404.     property Creator: Integer readonly dispid 1610743809;
  4405.   end;
  4406.  
  4407. // *********************************************************************//
  4408. // Interface: Assistant
  4409. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4410. // GUID:      {000C0322-0000-0000-C000-000000000046}
  4411. // *********************************************************************//
  4412.   Assistant = interface(_IMsoDispObj)
  4413.     ['{000C0322-0000-0000-C000-000000000046}']
  4414.     function Get_Parent: IDispatch; safecall;
  4415.     procedure Move(xLeft: SYSINT; yTop: SYSINT); safecall;
  4416.     procedure Set_Top(pyTop: SYSINT); safecall;
  4417.     function Get_Top: SYSINT; safecall;
  4418.     procedure Set_Left(pxLeft: SYSINT); safecall;
  4419.     function Get_Left: SYSINT; safecall;
  4420.     procedure Help; safecall;
  4421.     function StartWizard(On_: WordBool; const Callback: WideString; PrivateX: Integer; 
  4422.                          Animation: OleVariant; CustomTeaser: OleVariant; Top: OleVariant; 
  4423.                          Left: OleVariant; Bottom: OleVariant; Right: OleVariant): Integer; safecall;
  4424.     procedure EndWizard(WizardID: Integer; varfSuccess: WordBool; Animation: OleVariant); safecall;
  4425.     procedure ActivateWizard(WizardID: Integer; act: MsoWizardActType; Animation: OleVariant); safecall;
  4426.     procedure ResetTips; safecall;
  4427.     function Get_NewBalloon: Balloon; safecall;
  4428.     function Get_BalloonError: MsoBalloonErrorType; safecall;
  4429.     function Get_Visible: WordBool; safecall;
  4430.     procedure Set_Visible(pvarfVisible: WordBool); safecall;
  4431.     function Get_Animation: MsoAnimationType; safecall;
  4432.     procedure Set_Animation(pfca: MsoAnimationType); safecall;
  4433.     function Get_Reduced: WordBool; safecall;
  4434.     procedure Set_Reduced(pvarfReduced: WordBool); safecall;
  4435.     procedure Set_AssistWithHelp(pvarfAssistWithHelp: WordBool); safecall;
  4436.     function Get_AssistWithHelp: WordBool; safecall;
  4437.     procedure Set_AssistWithWizards(pvarfAssistWithWizards: WordBool); safecall;
  4438.     function Get_AssistWithWizards: WordBool; safecall;
  4439.     procedure Set_AssistWithAlerts(pvarfAssistWithAlerts: WordBool); safecall;
  4440.     function Get_AssistWithAlerts: WordBool; safecall;
  4441.     procedure Set_MoveWhenInTheWay(pvarfMove: WordBool); safecall;
  4442.     function Get_MoveWhenInTheWay: WordBool; safecall;
  4443.     procedure Set_Sounds(pvarfSounds: WordBool); safecall;
  4444.     function Get_Sounds: WordBool; safecall;
  4445.     procedure Set_FeatureTips(pvarfFeatures: WordBool); safecall;
  4446.     function Get_FeatureTips: WordBool; safecall;
  4447.     procedure Set_MouseTips(pvarfMouse: WordBool); safecall;
  4448.     function Get_MouseTips: WordBool; safecall;
  4449.     procedure Set_KeyboardShortcutTips(pvarfKeyboardShortcuts: WordBool); safecall;
  4450.     function Get_KeyboardShortcutTips: WordBool; safecall;
  4451.     procedure Set_HighPriorityTips(pvarfHighPriorityTips: WordBool); safecall;
  4452.     function Get_HighPriorityTips: WordBool; safecall;
  4453.     procedure Set_TipOfDay(pvarfTipOfDay: WordBool); safecall;
  4454.     function Get_TipOfDay: WordBool; safecall;
  4455.     procedure Set_GuessHelp(pvarfGuessHelp: WordBool); safecall;
  4456.     function Get_GuessHelp: WordBool; safecall;
  4457.     procedure Set_SearchWhenProgramming(pvarfSearchInProgram: WordBool); safecall;
  4458.     function Get_SearchWhenProgramming: WordBool; safecall;
  4459.     function Get_Item: WideString; safecall;
  4460.     function Get_FileName: WideString; safecall;
  4461.     procedure Set_FileName(const pbstr: WideString); safecall;
  4462.     function Get_Name: WideString; safecall;
  4463.     function Get_On_: WordBool; safecall;
  4464.     procedure Set_On_(pvarfOn: WordBool); safecall;
  4465.     property Parent: IDispatch read Get_Parent;
  4466.     property Top: SYSINT read Get_Top write Set_Top;
  4467.     property Left: SYSINT read Get_Left write Set_Left;
  4468.     property NewBalloon: Balloon read Get_NewBalloon;
  4469.     property BalloonError: MsoBalloonErrorType read Get_BalloonError;
  4470.     property Visible: WordBool read Get_Visible write Set_Visible;
  4471.     property Animation: MsoAnimationType read Get_Animation write Set_Animation;
  4472.     property Reduced: WordBool read Get_Reduced write Set_Reduced;
  4473.     property AssistWithHelp: WordBool read Get_AssistWithHelp write Set_AssistWithHelp;
  4474.     property AssistWithWizards: WordBool read Get_AssistWithWizards write Set_AssistWithWizards;
  4475.     property AssistWithAlerts: WordBool read Get_AssistWithAlerts write Set_AssistWithAlerts;
  4476.     property MoveWhenInTheWay: WordBool read Get_MoveWhenInTheWay write Set_MoveWhenInTheWay;
  4477.     property Sounds: WordBool read Get_Sounds write Set_Sounds;
  4478.     property FeatureTips: WordBool read Get_FeatureTips write Set_FeatureTips;
  4479.     property MouseTips: WordBool read Get_MouseTips write Set_MouseTips;
  4480.     property KeyboardShortcutTips: WordBool read Get_KeyboardShortcutTips write Set_KeyboardShortcutTips;
  4481.     property HighPriorityTips: WordBool read Get_HighPriorityTips write Set_HighPriorityTips;
  4482.     property TipOfDay: WordBool read Get_TipOfDay write Set_TipOfDay;
  4483.     property GuessHelp: WordBool read Get_GuessHelp write Set_GuessHelp;
  4484.     property SearchWhenProgramming: WordBool read Get_SearchWhenProgramming write Set_SearchWhenProgramming;
  4485.     property Item: WideString read Get_Item;
  4486.     property FileName: WideString read Get_FileName write Set_FileName;
  4487.     property Name: WideString read Get_Name;
  4488.     property On_: WordBool read Get_On_ write Set_On_;
  4489.   end;
  4490.  
  4491. // *********************************************************************//
  4492. // DispIntf:  AssistantDisp
  4493. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4494. // GUID:      {000C0322-0000-0000-C000-000000000046}
  4495. // *********************************************************************//
  4496.   AssistantDisp = dispinterface
  4497.     ['{000C0322-0000-0000-C000-000000000046}']
  4498.     property Parent: IDispatch readonly dispid 1610809344;
  4499.     procedure Move(xLeft: SYSINT; yTop: SYSINT); dispid 1610809345;
  4500.     property Top: SYSINT dispid 1610809346;
  4501.     property Left: SYSINT dispid 1610809348;
  4502.     procedure Help; dispid 1610809350;
  4503.     function StartWizard(On_: WordBool; const Callback: WideString; PrivateX: Integer; 
  4504.                          Animation: OleVariant; CustomTeaser: OleVariant; Top: OleVariant; 
  4505.                          Left: OleVariant; Bottom: OleVariant; Right: OleVariant): Integer; dispid 1610809351;
  4506.     procedure EndWizard(WizardID: Integer; varfSuccess: WordBool; Animation: OleVariant); dispid 1610809352;
  4507.     procedure ActivateWizard(WizardID: Integer; act: MsoWizardActType; Animation: OleVariant); dispid 1610809353;
  4508.     procedure ResetTips; dispid 1610809354;
  4509.     property NewBalloon: Balloon readonly dispid 1610809355;
  4510.     property BalloonError: MsoBalloonErrorType readonly dispid 1610809356;
  4511.     property Visible: WordBool dispid 1610809357;
  4512.     property Animation: MsoAnimationType dispid 1610809359;
  4513.     property Reduced: WordBool dispid 1610809361;
  4514.     property AssistWithHelp: WordBool dispid 1610809363;
  4515.     property AssistWithWizards: WordBool dispid 1610809365;
  4516.     property AssistWithAlerts: WordBool dispid 1610809367;
  4517.     property MoveWhenInTheWay: WordBool dispid 1610809369;
  4518.     property Sounds: WordBool dispid 1610809371;
  4519.     property FeatureTips: WordBool dispid 1610809373;
  4520.     property MouseTips: WordBool dispid 1610809375;
  4521.     property KeyboardShortcutTips: WordBool dispid 1610809377;
  4522.     property HighPriorityTips: WordBool dispid 1610809379;
  4523.     property TipOfDay: WordBool dispid 1610809381;
  4524.     property GuessHelp: WordBool dispid 1610809383;
  4525.     property SearchWhenProgramming: WordBool dispid 1610809385;
  4526.     property Item: WideString readonly dispid 0;
  4527.     property FileName: WideString dispid 1610809388;
  4528.     property Name: WideString readonly dispid 1610809390;
  4529.     property On_: WordBool dispid 1610809391;
  4530.     property Application_: IDispatch readonly dispid 1610743808;
  4531.     property Creator: Integer readonly dispid 1610743809;
  4532.   end;
  4533.  
  4534. // *********************************************************************//
  4535. // Interface: DocumentProperty
  4536. // Flags:     (4096) Dispatchable
  4537. // GUID:      {2DF8D04E-5BFA-101B-BDE5-00AA0044DE52}
  4538. // *********************************************************************//
  4539.   DocumentProperty = interface(IDispatch)
  4540.     ['{2DF8D04E-5BFA-101B-BDE5-00AA0044DE52}']
  4541.     function Get_Parent: IDispatch; stdcall;
  4542.     function Delete: HResult; stdcall;
  4543.     function Get_Name(lcid: Integer; out pbstrRetVal: WideString): HResult; stdcall;
  4544.     function Set_Name(lcid: Integer; const pbstrRetVal: WideString): HResult; stdcall;
  4545.     function Get_Value(lcid: Integer; out pvargRetVal: OleVariant): HResult; stdcall;
  4546.     function Set_Value(lcid: Integer; pvargRetVal: OleVariant): HResult; stdcall;
  4547.     function Get_Type_(lcid: Integer; out ptypeRetVal: MsoDocProperties): HResult; stdcall;
  4548.     function Set_Type_(lcid: Integer; ptypeRetVal: MsoDocProperties): HResult; stdcall;
  4549.     function Get_LinkToContent(out pfLinkRetVal: WordBool): HResult; stdcall;
  4550.     function Set_LinkToContent(pfLinkRetVal: WordBool): HResult; stdcall;
  4551.     function Get_LinkSource(out pbstrSourceRetVal: WideString): HResult; stdcall;
  4552.     function Set_LinkSource(const pbstrSourceRetVal: WideString): HResult; stdcall;
  4553.     function Get_Application_(out ppidisp: IDispatch): HResult; stdcall;
  4554.     function Get_Creator(out plCreator: Integer): HResult; stdcall;
  4555.   end;
  4556.  
  4557. // *********************************************************************//
  4558. // Interface: DocumentProperties
  4559. // Flags:     (4096) Dispatchable
  4560. // GUID:      {2DF8D04D-5BFA-101B-BDE5-00AA0044DE52}
  4561. // *********************************************************************//
  4562.   DocumentProperties = interface(IDispatch)
  4563.     ['{2DF8D04D-5BFA-101B-BDE5-00AA0044DE52}']
  4564.     function Get_Parent: IDispatch; stdcall;
  4565.     function Get_Item(Index: OleVariant; lcid: Integer; out ppIDocProp: DocumentProperty): HResult; stdcall;
  4566.     function Get_Count(out pc: Integer): HResult; stdcall;
  4567.     function Add(const Name: WideString; LinkToContent: WordBool; Type_: OleVariant; 
  4568.                  Value: OleVariant; LinkSource: OleVariant; lcid: Integer; 
  4569.                  out ppIDocProp: DocumentProperty): HResult; stdcall;
  4570.     function Get__NewEnum(out ppunkEnum: IUnknown): HResult; stdcall;
  4571.     function Get_Application_(out ppidisp: IDispatch): HResult; stdcall;
  4572.     function Get_Creator(out plCreator: Integer): HResult; stdcall;
  4573.   end;
  4574.  
  4575. // *********************************************************************//
  4576. // Interface: IFoundFiles
  4577. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4578. // GUID:      {000C0338-0000-0000-C000-000000000046}
  4579. // *********************************************************************//
  4580.   IFoundFiles = interface(IDispatch)
  4581.     ['{000C0338-0000-0000-C000-000000000046}']
  4582.     function Get_Item(Index: SYSINT): WideString; safecall;
  4583.     function Get_Count: SYSINT; safecall;
  4584.     function Get__NewEnum: IUnknown; safecall;
  4585.     property Item[Index: SYSINT]: WideString read Get_Item; default;
  4586.     property Count: SYSINT read Get_Count;
  4587.     property _NewEnum: IUnknown read Get__NewEnum;
  4588.   end;
  4589.  
  4590. // *********************************************************************//
  4591. // DispIntf:  IFoundFilesDisp
  4592. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4593. // GUID:      {000C0338-0000-0000-C000-000000000046}
  4594. // *********************************************************************//
  4595.   IFoundFilesDisp = dispinterface
  4596.     ['{000C0338-0000-0000-C000-000000000046}']
  4597.     property Item[Index: SYSINT]: WideString readonly dispid 0; default;
  4598.     property Count: SYSINT readonly dispid 1610743809;
  4599.     property _NewEnum: IUnknown readonly dispid -4;
  4600.   end;
  4601.  
  4602. // *********************************************************************//
  4603. // Interface: IFind
  4604. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4605. // GUID:      {000C0337-0000-0000-C000-000000000046}
  4606. // *********************************************************************//
  4607.   IFind = interface(IDispatch)
  4608.     ['{000C0337-0000-0000-C000-000000000046}']
  4609.     function Get_SearchPath: WideString; safecall;
  4610.     function Get_Name: WideString; safecall;
  4611.     function Get_SubDir: WordBool; safecall;
  4612.     function Get_Title: WideString; safecall;
  4613.     function Get_Author: WideString; safecall;
  4614.     function Get_Keywords: WideString; safecall;
  4615.     function Get_Subject: WideString; safecall;
  4616.     function Get_Options: MsoFileFindOptions; safecall;
  4617.     function Get_MatchCase: WordBool; safecall;
  4618.     function Get_Text: WideString; safecall;
  4619.     function Get_PatternMatch: WordBool; safecall;
  4620.     function Get_DateSavedFrom: OleVariant; safecall;
  4621.     function Get_DateSavedTo: OleVariant; safecall;
  4622.     function Get_SavedBy: WideString; safecall;
  4623.     function Get_DateCreatedFrom: OleVariant; safecall;
  4624.     function Get_DateCreatedTo: OleVariant; safecall;
  4625.     function Get_View: MsoFileFindView; safecall;
  4626.     function Get_SortBy: MsoFileFindSortBy; safecall;
  4627.     function Get_ListBy: MsoFileFindListBy; safecall;
  4628.     function Get_SelectedFile: SYSINT; safecall;
  4629.     function Get_Results: IFoundFiles; safecall;
  4630.     function Show: SYSINT; safecall;
  4631.     procedure Set_SearchPath(const pbstr: WideString); safecall;
  4632.     procedure Set_Name(const pbstr: WideString); safecall;
  4633.     procedure Set_SubDir(retval: WordBool); safecall;
  4634.     procedure Set_Title(const pbstr: WideString); safecall;
  4635.     procedure Set_Author(const pbstr: WideString); safecall;
  4636.     procedure Set_Keywords(const pbstr: WideString); safecall;
  4637.     procedure Set_Subject(const pbstr: WideString); safecall;
  4638.     procedure Set_Options(penmOptions: MsoFileFindOptions); safecall;
  4639.     procedure Set_MatchCase(retval: WordBool); safecall;
  4640.     procedure Set_Text(const pbstr: WideString); safecall;
  4641.     procedure Set_PatternMatch(retval: WordBool); safecall;
  4642.     procedure Set_DateSavedFrom(pdatSavedFrom: OleVariant); safecall;
  4643.     procedure Set_DateSavedTo(pdatSavedTo: OleVariant); safecall;
  4644.     procedure Set_SavedBy(const pbstr: WideString); safecall;
  4645.     procedure Set_DateCreatedFrom(pdatCreatedFrom: OleVariant); safecall;
  4646.     procedure Set_DateCreatedTo(pdatCreatedTo: OleVariant); safecall;
  4647.     procedure Set_View(penmView: MsoFileFindView); safecall;
  4648.     procedure Set_SortBy(penmSortBy: MsoFileFindSortBy); safecall;
  4649.     procedure Set_ListBy(penmListBy: MsoFileFindListBy); safecall;
  4650.     procedure Set_SelectedFile(pintSelectedFile: SYSINT); safecall;
  4651.     procedure Execute; safecall;
  4652.     procedure Load(const bstrQueryName: WideString); safecall;
  4653.     procedure Save(const bstrQueryName: WideString); safecall;
  4654.     procedure Delete(const bstrQueryName: WideString); safecall;
  4655.     function Get_FileType: Integer; safecall;
  4656.     procedure Set_FileType(plFileType: Integer); safecall;
  4657.     property SearchPath: WideString read Get_SearchPath write Set_SearchPath;
  4658.     property Name: WideString read Get_Name write Set_Name;
  4659.     property SubDir: WordBool read Get_SubDir write Set_SubDir;
  4660.     property Title: WideString read Get_Title write Set_Title;
  4661.     property Author: WideString read Get_Author write Set_Author;
  4662.     property Keywords: WideString read Get_Keywords write Set_Keywords;
  4663.     property Subject: WideString read Get_Subject write Set_Subject;
  4664.     property Options: MsoFileFindOptions read Get_Options write Set_Options;
  4665.     property MatchCase: WordBool read Get_MatchCase write Set_MatchCase;
  4666.     property Text: WideString read Get_Text write Set_Text;
  4667.     property PatternMatch: WordBool read Get_PatternMatch write Set_PatternMatch;
  4668.     property DateSavedFrom: OleVariant read Get_DateSavedFrom write Set_DateSavedFrom;
  4669.     property DateSavedTo: OleVariant read Get_DateSavedTo write Set_DateSavedTo;
  4670.     property SavedBy: WideString read Get_SavedBy write Set_SavedBy;
  4671.     property DateCreatedFrom: OleVariant read Get_DateCreatedFrom write Set_DateCreatedFrom;
  4672.     property DateCreatedTo: OleVariant read Get_DateCreatedTo write Set_DateCreatedTo;
  4673.     property View: MsoFileFindView read Get_View write Set_View;
  4674.     property SortBy: MsoFileFindSortBy read Get_SortBy write Set_SortBy;
  4675.     property ListBy: MsoFileFindListBy read Get_ListBy write Set_ListBy;
  4676.     property SelectedFile: SYSINT read Get_SelectedFile write Set_SelectedFile;
  4677.     property Results: IFoundFiles read Get_Results;
  4678.     property FileType: Integer read Get_FileType write Set_FileType;
  4679.   end;
  4680.  
  4681. // *********************************************************************//
  4682. // DispIntf:  IFindDisp
  4683. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4684. // GUID:      {000C0337-0000-0000-C000-000000000046}
  4685. // *********************************************************************//
  4686.   IFindDisp = dispinterface
  4687.     ['{000C0337-0000-0000-C000-000000000046}']
  4688.     property SearchPath: WideString dispid 0;
  4689.     property Name: WideString dispid 1610743809;
  4690.     property SubDir: WordBool dispid 1610743810;
  4691.     property Title: WideString dispid 1610743811;
  4692.     property Author: WideString dispid 1610743812;
  4693.     property Keywords: WideString dispid 1610743813;
  4694.     property Subject: WideString dispid 1610743814;
  4695.     property Options: MsoFileFindOptions dispid 1610743815;
  4696.     property MatchCase: WordBool dispid 1610743816;
  4697.     property Text: WideString dispid 1610743817;
  4698.     property PatternMatch: WordBool dispid 1610743818;
  4699.     property DateSavedFrom: OleVariant dispid 1610743819;
  4700.     property DateSavedTo: OleVariant dispid 1610743820;
  4701.     property SavedBy: WideString dispid 1610743821;
  4702.     property DateCreatedFrom: OleVariant dispid 1610743822;
  4703.     property DateCreatedTo: OleVariant dispid 1610743823;
  4704.     property View: MsoFileFindView dispid 1610743824;
  4705.     property SortBy: MsoFileFindSortBy dispid 1610743825;
  4706.     property ListBy: MsoFileFindListBy dispid 1610743826;
  4707.     property SelectedFile: SYSINT dispid 1610743827;
  4708.     property Results: IFoundFiles readonly dispid 1610743828;
  4709.     function Show: SYSINT; dispid 1610743829;
  4710.     procedure Execute; dispid 1610743850;
  4711.     procedure Load(const bstrQueryName: WideString); dispid 1610743851;
  4712.     procedure Save(const bstrQueryName: WideString); dispid 1610743852;
  4713.     procedure Delete(const bstrQueryName: WideString); dispid 1610743853;
  4714.     property FileType: Integer dispid 1610743854;
  4715.   end;
  4716.  
  4717. // *********************************************************************//
  4718. // Interface: FoundFiles
  4719. // Flags:     (4416) Dual OleAutomation Dispatchable
  4720. // GUID:      {000C0331-0000-0000-C000-000000000046}
  4721. // *********************************************************************//
  4722.   FoundFiles = interface(_IMsoDispObj)
  4723.     ['{000C0331-0000-0000-C000-000000000046}']
  4724.     function Get_Item(Index: SYSINT; lcid: Integer): WideString; safecall;
  4725.     function Get_Count: Integer; safecall;
  4726.     function Get__NewEnum: IUnknown; safecall;
  4727.     property Item[Index: SYSINT; lcid: Integer]: WideString read Get_Item;
  4728.     property Count: Integer read Get_Count;
  4729.     property _NewEnum: IUnknown read Get__NewEnum;
  4730.   end;
  4731.  
  4732. // *********************************************************************//
  4733. // DispIntf:  FoundFilesDisp
  4734. // Flags:     (4416) Dual OleAutomation Dispatchable
  4735. // GUID:      {000C0331-0000-0000-C000-000000000046}
  4736. // *********************************************************************//
  4737.   FoundFilesDisp = dispinterface
  4738.     ['{000C0331-0000-0000-C000-000000000046}']
  4739.     property Item[Index: SYSINT; lcid: Integer]: WideString readonly dispid 0;
  4740.     property Count: Integer readonly dispid 4;
  4741.     property _NewEnum: IUnknown readonly dispid -4;
  4742.     property Application_: IDispatch readonly dispid 1610743808;
  4743.     property Creator: Integer readonly dispid 1610743809;
  4744.   end;
  4745.  
  4746. // *********************************************************************//
  4747. // Interface: PropertyTest
  4748. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4749. // GUID:      {000C0333-0000-0000-C000-000000000046}
  4750. // *********************************************************************//
  4751.   PropertyTest = interface(_IMsoDispObj)
  4752.     ['{000C0333-0000-0000-C000-000000000046}']
  4753.     function Get_Name: WideString; safecall;
  4754.     function Get_Condition: MsoCondition; safecall;
  4755.     function Get_Value: OleVariant; safecall;
  4756.     function Get_SecondValue: OleVariant; safecall;
  4757.     function Get_Connector: MsoConnector; safecall;
  4758.     property Name: WideString read Get_Name;
  4759.     property Condition: MsoCondition read Get_Condition;
  4760.     property Value: OleVariant read Get_Value;
  4761.     property SecondValue: OleVariant read Get_SecondValue;
  4762.     property Connector: MsoConnector read Get_Connector;
  4763.   end;
  4764.  
  4765. // *********************************************************************//
  4766. // DispIntf:  PropertyTestDisp
  4767. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4768. // GUID:      {000C0333-0000-0000-C000-000000000046}
  4769. // *********************************************************************//
  4770.   PropertyTestDisp = dispinterface
  4771.     ['{000C0333-0000-0000-C000-000000000046}']
  4772.     property Name: WideString readonly dispid 0;
  4773.     property Condition: MsoCondition readonly dispid 2;
  4774.     property Value: OleVariant readonly dispid 3;
  4775.     property SecondValue: OleVariant readonly dispid 4;
  4776.     property Connector: MsoConnector readonly dispid 5;
  4777.     property Application_: IDispatch readonly dispid 1610743808;
  4778.     property Creator: Integer readonly dispid 1610743809;
  4779.   end;
  4780.  
  4781. // *********************************************************************//
  4782. // Interface: PropertyTests
  4783. // Flags:     (4416) Dual OleAutomation Dispatchable
  4784. // GUID:      {000C0334-0000-0000-C000-000000000046}
  4785. // *********************************************************************//
  4786.   PropertyTests = interface(_IMsoDispObj)
  4787.     ['{000C0334-0000-0000-C000-000000000046}']
  4788.     function Get_Item(Index: SYSINT; lcid: Integer): PropertyTest; safecall;
  4789.     function Get_Count: Integer; safecall;
  4790.     procedure Add(const Name: WideString; Condition: MsoCondition; Value: OleVariant; 
  4791.                   SecondValue: OleVariant; Connector: MsoConnector); safecall;
  4792.     procedure Remove(Index: SYSINT); safecall;
  4793.     function Get__NewEnum: IUnknown; safecall;
  4794.     property Item[Index: SYSINT; lcid: Integer]: PropertyTest read Get_Item;
  4795.     property Count: Integer read Get_Count;
  4796.     property _NewEnum: IUnknown read Get__NewEnum;
  4797.   end;
  4798.  
  4799. // *********************************************************************//
  4800. // DispIntf:  PropertyTestsDisp
  4801. // Flags:     (4416) Dual OleAutomation Dispatchable
  4802. // GUID:      {000C0334-0000-0000-C000-000000000046}
  4803. // *********************************************************************//
  4804.   PropertyTestsDisp = dispinterface
  4805.     ['{000C0334-0000-0000-C000-000000000046}']
  4806.     property Item[Index: SYSINT; lcid: Integer]: PropertyTest readonly dispid 0;
  4807.     property Count: Integer readonly dispid 4;
  4808.     procedure Add(const Name: WideString; Condition: MsoCondition; Value: OleVariant; 
  4809.                   SecondValue: OleVariant; Connector: MsoConnector); dispid 5;
  4810.     procedure Remove(Index: SYSINT); dispid 6;
  4811.     property _NewEnum: IUnknown readonly dispid -4;
  4812.     property Application_: IDispatch readonly dispid 1610743808;
  4813.     property Creator: Integer readonly dispid 1610743809;
  4814.   end;
  4815.  
  4816. // *********************************************************************//
  4817. // Interface: FileSearch
  4818. // Flags:     (4416) Dual OleAutomation Dispatchable
  4819. // GUID:      {000C0332-0000-0000-C000-000000000046}
  4820. // *********************************************************************//
  4821.   FileSearch = interface(_IMsoDispObj)
  4822.     ['{000C0332-0000-0000-C000-000000000046}']
  4823.     function Get_SearchSubFolders: WordBool; safecall;
  4824.     procedure Set_SearchSubFolders(SearchSubFoldersRetVal: WordBool); safecall;
  4825.     function Get_MatchTextExactly: WordBool; safecall;
  4826.     procedure Set_MatchTextExactly(MatchTextRetVal: WordBool); safecall;
  4827.     function Get_MatchAllWordForms: WordBool; safecall;
  4828.     procedure Set_MatchAllWordForms(MatchAllWordFormsRetVal: WordBool); safecall;
  4829.     function Get_FileName: WideString; safecall;
  4830.     procedure Set_FileName(const FileNameRetVal: WideString); safecall;
  4831.     function Get_FileType: MsoFileType; safecall;
  4832.     procedure Set_FileType(FileTypeRetVal: MsoFileType); safecall;
  4833.     function Get_LastModified: MsoLastModified; safecall;
  4834.     procedure Set_LastModified(LastModifiedRetVal: MsoLastModified); safecall;
  4835.     function Get_TextOrProperty: WideString; safecall;
  4836.     procedure Set_TextOrProperty(const TextOrProperty: WideString); safecall;
  4837.     function Get_LookIn: WideString; safecall;
  4838.     procedure Set_LookIn(const LookInRetVal: WideString); safecall;
  4839.     function Execute(SortBy: MsoSortBy; SortOrder: MsoSortOrder; AlwaysAccurate: WordBool): SYSINT; safecall;
  4840.     procedure NewSearch; safecall;
  4841.     function Get_FoundFiles: FoundFiles; safecall;
  4842.     function Get_PropertyTests: PropertyTests; safecall;
  4843.     property SearchSubFolders: WordBool read Get_SearchSubFolders write Set_SearchSubFolders;
  4844.     property MatchTextExactly: WordBool read Get_MatchTextExactly write Set_MatchTextExactly;
  4845.     property MatchAllWordForms: WordBool read Get_MatchAllWordForms write Set_MatchAllWordForms;
  4846.     property FileName: WideString read Get_FileName write Set_FileName;
  4847.     property FileType: MsoFileType read Get_FileType write Set_FileType;
  4848.     property LastModified: MsoLastModified read Get_LastModified write Set_LastModified;
  4849.     property TextOrProperty: WideString read Get_TextOrProperty write Set_TextOrProperty;
  4850.     property LookIn: WideString read Get_LookIn write Set_LookIn;
  4851.     property FoundFiles: FoundFiles read Get_FoundFiles;
  4852.     property PropertyTests: PropertyTests read Get_PropertyTests;
  4853.   end;
  4854.  
  4855. // *********************************************************************//
  4856. // DispIntf:  FileSearchDisp
  4857. // Flags:     (4416) Dual OleAutomation Dispatchable
  4858. // GUID:      {000C0332-0000-0000-C000-000000000046}
  4859. // *********************************************************************//
  4860.   FileSearchDisp = dispinterface
  4861.     ['{000C0332-0000-0000-C000-000000000046}']
  4862.     property SearchSubFolders: WordBool dispid 1;
  4863.     property MatchTextExactly: WordBool dispid 2;
  4864.     property MatchAllWordForms: WordBool dispid 3;
  4865.     property FileName: WideString dispid 4;
  4866.     property FileType: MsoFileType dispid 5;
  4867.     property LastModified: MsoLastModified dispid 6;
  4868.     property TextOrProperty: WideString dispid 7;
  4869.     property LookIn: WideString dispid 8;
  4870.     function Execute(SortBy: MsoSortBy; SortOrder: MsoSortOrder; AlwaysAccurate: WordBool): SYSINT; dispid 9;
  4871.     procedure NewSearch; dispid 10;
  4872.     property FoundFiles: FoundFiles readonly dispid 11;
  4873.     property PropertyTests: PropertyTests readonly dispid 12;
  4874.     property Application_: IDispatch readonly dispid 1610743808;
  4875.     property Creator: Integer readonly dispid 1610743809;
  4876.   end;
  4877.  
  4878. // *********************************************************************//
  4879. // Interface: COMAddIn
  4880. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4881. // GUID:      {000C033A-0000-0000-C000-000000000046}
  4882. // *********************************************************************//
  4883.   COMAddIn = interface(_IMsoDispObj)
  4884.     ['{000C033A-0000-0000-C000-000000000046}']
  4885.     function Get_Description: WideString; safecall;
  4886.     procedure Set_Description(const RetValue: WideString); safecall;
  4887.     function Get_ProgId: WideString; safecall;
  4888.     function Get_Guid: WideString; safecall;
  4889.     function Get_Connect: WordBool; safecall;
  4890.     procedure Set_Connect(RetValue: WordBool); safecall;
  4891.     function Get_Object_: IDispatch; safecall;
  4892.     procedure Set_Object_(const RetValue: IDispatch); safecall;
  4893.     function Get_Parent: IDispatch; safecall;
  4894.     property Description: WideString read Get_Description write Set_Description;
  4895.     property ProgId: WideString read Get_ProgId;
  4896.     property Guid: WideString read Get_Guid;
  4897.     property Connect: WordBool read Get_Connect write Set_Connect;
  4898.     property Object_: IDispatch read Get_Object_ write Set_Object_;
  4899.     property Parent: IDispatch read Get_Parent;
  4900.   end;
  4901.  
  4902. // *********************************************************************//
  4903. // DispIntf:  COMAddInDisp
  4904. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4905. // GUID:      {000C033A-0000-0000-C000-000000000046}
  4906. // *********************************************************************//
  4907.   COMAddInDisp = dispinterface
  4908.     ['{000C033A-0000-0000-C000-000000000046}']
  4909.     property Description: WideString dispid 0;
  4910.     property ProgId: WideString readonly dispid 3;
  4911.     property Guid: WideString readonly dispid 4;
  4912.     property Connect: WordBool dispid 6;
  4913.     property Object_: IDispatch dispid 7;
  4914.     property Parent: IDispatch readonly dispid 8;
  4915.     property Application_: IDispatch readonly dispid 1610743808;
  4916.     property Creator: Integer readonly dispid 1610743809;
  4917.   end;
  4918.  
  4919. // *********************************************************************//
  4920. // Interface: COMAddIns
  4921. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4922. // GUID:      {000C0339-0000-0000-C000-000000000046}
  4923. // *********************************************************************//
  4924.   COMAddIns = interface(_IMsoDispObj)
  4925.     ['{000C0339-0000-0000-C000-000000000046}']
  4926.     function Item(var Index: OleVariant): COMAddIn; safecall;
  4927.     function Get_Count: Integer; safecall;
  4928.     function Get__NewEnum: IUnknown; safecall;
  4929.     procedure Update; safecall;
  4930.     function Get_Parent: IDispatch; safecall;
  4931.     procedure SetAppModal(varfModal: WordBool); safecall;
  4932.     property Count: Integer read Get_Count;
  4933.     property _NewEnum: IUnknown read Get__NewEnum;
  4934.     property Parent: IDispatch read Get_Parent;
  4935.   end;
  4936.  
  4937. // *********************************************************************//
  4938. // DispIntf:  COMAddInsDisp
  4939. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4940. // GUID:      {000C0339-0000-0000-C000-000000000046}
  4941. // *********************************************************************//
  4942.   COMAddInsDisp = dispinterface
  4943.     ['{000C0339-0000-0000-C000-000000000046}']
  4944.     function Item(var Index: OleVariant): COMAddIn; dispid 0;
  4945.     property Count: Integer readonly dispid 1;
  4946.     property _NewEnum: IUnknown readonly dispid -4;
  4947.     procedure Update; dispid 2;
  4948.     property Parent: IDispatch readonly dispid 3;
  4949.     procedure SetAppModal(varfModal: WordBool); dispid 4;
  4950.     property Application_: IDispatch readonly dispid 1610743808;
  4951.     property Creator: Integer readonly dispid 1610743809;
  4952.   end;
  4953.  
  4954. // *********************************************************************//
  4955. // Interface: LanguageSettings
  4956. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4957. // GUID:      {000C0353-0000-0000-C000-000000000046}
  4958. // *********************************************************************//
  4959.   LanguageSettings = interface(_IMsoDispObj)
  4960.     ['{000C0353-0000-0000-C000-000000000046}']
  4961.     function Get_LanguageID(Id: MsoAppLanguageID): SYSINT; safecall;
  4962.     function Get_LanguagePreferredForEditing(lid: MsoLanguageID): WordBool; safecall;
  4963.     property LanguageID[Id: MsoAppLanguageID]: SYSINT read Get_LanguageID;
  4964.     property LanguagePreferredForEditing[lid: MsoLanguageID]: WordBool read Get_LanguagePreferredForEditing;
  4965.   end;
  4966.  
  4967. // *********************************************************************//
  4968. // DispIntf:  LanguageSettingsDisp
  4969. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4970. // GUID:      {000C0353-0000-0000-C000-000000000046}
  4971. // *********************************************************************//
  4972.   LanguageSettingsDisp = dispinterface
  4973.     ['{000C0353-0000-0000-C000-000000000046}']
  4974.     property LanguageID[Id: MsoAppLanguageID]: SYSINT readonly dispid 1;
  4975.     property LanguagePreferredForEditing[lid: MsoLanguageID]: WordBool readonly dispid 2;
  4976.     property Application_: IDispatch readonly dispid 1610743808;
  4977.     property Creator: Integer readonly dispid 1610743809;
  4978.   end;
  4979.  
  4980. // *********************************************************************//
  4981. // Interface: ICommandBarsEvents
  4982. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4983. // GUID:      {55F88892-7708-11D1-ACEB-006008961DA5}
  4984. // *********************************************************************//
  4985.   ICommandBarsEvents = interface(IDispatch)
  4986.     ['{55F88892-7708-11D1-ACEB-006008961DA5}']
  4987.     procedure OnUpdate; stdcall;
  4988.   end;
  4989.  
  4990. // *********************************************************************//
  4991. // DispIntf:  ICommandBarsEventsDisp
  4992. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4993. // GUID:      {55F88892-7708-11D1-ACEB-006008961DA5}
  4994. // *********************************************************************//
  4995.   ICommandBarsEventsDisp = dispinterface
  4996.     ['{55F88892-7708-11D1-ACEB-006008961DA5}']
  4997.     procedure OnUpdate; dispid 1;
  4998.   end;
  4999.  
  5000. // *********************************************************************//
  5001. // DispIntf:  _CommandBarsEvents
  5002. // Flags:     (4112) Hidden Dispatchable
  5003. // GUID:      {000C0352-0000-0000-C000-000000000046}
  5004. // *********************************************************************//
  5005.   _CommandBarsEvents = dispinterface
  5006.     ['{000C0352-0000-0000-C000-000000000046}']
  5007.     procedure QueryInterface_(var riid: {??TGUID} OleVariant; out ppvObj: {??Pointer} OleVariant); dispid 1610612736;
  5008.     function AddRef_: UINT; dispid 1610612737;
  5009.     function Release_: UINT; dispid 1610612738;
  5010.     procedure GetTypeInfoCount_(out pctinfo: SYSUINT); dispid 1610678272;
  5011.     procedure GetTypeInfo_(itinfo: SYSUINT; lcid: UINT; out pptinfo: {??Pointer} OleVariant); dispid 1610678273;
  5012.     procedure GetIDsOfNames_(var riid: {??TGUID} OleVariant; rgszNames: {??PPShortint1} OleVariant; 
  5013.                              cNames: SYSUINT; lcid: UINT; out rgdispid: Integer); dispid 1610678274;
  5014.     procedure Invoke_(dispidMember: Integer; var riid: {??TGUID} OleVariant; lcid: UINT; 
  5015.                       wFlags: {??Word} OleVariant; var pdispparams: {??DISPPARAMS} OleVariant; 
  5016.                       out pvarResult: OleVariant; out pexcepinfo: {??EXCEPINFO} OleVariant; 
  5017.                       out puArgErr: SYSUINT); dispid 1610678275;
  5018.     procedure OnUpdate; dispid 1;
  5019.   end;
  5020.  
  5021. // *********************************************************************//
  5022. // Interface: ICommandBarComboBoxEvents
  5023. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5024. // GUID:      {55F88896-7708-11D1-ACEB-006008961DA5}
  5025. // *********************************************************************//
  5026.   ICommandBarComboBoxEvents = interface(IDispatch)
  5027.     ['{55F88896-7708-11D1-ACEB-006008961DA5}']
  5028.     procedure Change(const Ctrl: CommandBarComboBox); stdcall;
  5029.   end;
  5030.  
  5031. // *********************************************************************//
  5032. // DispIntf:  ICommandBarComboBoxEventsDisp
  5033. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5034. // GUID:      {55F88896-7708-11D1-ACEB-006008961DA5}
  5035. // *********************************************************************//
  5036.   ICommandBarComboBoxEventsDisp = dispinterface
  5037.     ['{55F88896-7708-11D1-ACEB-006008961DA5}']
  5038.     procedure Change(const Ctrl: CommandBarComboBox); dispid 1;
  5039.   end;
  5040.  
  5041. // *********************************************************************//
  5042. // DispIntf:  _CommandBarComboBoxEvents
  5043. // Flags:     (4112) Hidden Dispatchable
  5044. // GUID:      {000C0354-0000-0000-C000-000000000046}
  5045. // *********************************************************************//
  5046.   _CommandBarComboBoxEvents = dispinterface
  5047.     ['{000C0354-0000-0000-C000-000000000046}']
  5048.     procedure QueryInterface_(var riid: {??TGUID} OleVariant; out ppvObj: {??Pointer} OleVariant); dispid 1610612736;
  5049.     function AddRef_: UINT; dispid 1610612737;
  5050.     function Release_: UINT; dispid 1610612738;
  5051.     procedure GetTypeInfoCount_(out pctinfo: SYSUINT); dispid 1610678272;
  5052.     procedure GetTypeInfo_(itinfo: SYSUINT; lcid: UINT; out pptinfo: {??Pointer} OleVariant); dispid 1610678273;
  5053.     procedure GetIDsOfNames_(var riid: {??TGUID} OleVariant; rgszNames: {??PPShortint1} OleVariant; 
  5054.                              cNames: SYSUINT; lcid: UINT; out rgdispid: Integer); dispid 1610678274;
  5055.     procedure Invoke_(dispidMember: Integer; var riid: {??TGUID} OleVariant; lcid: UINT; 
  5056.                       wFlags: {??Word} OleVariant; var pdispparams: {??DISPPARAMS} OleVariant; 
  5057.                       out pvarResult: OleVariant; out pexcepinfo: {??EXCEPINFO} OleVariant; 
  5058.                       out puArgErr: SYSUINT); dispid 1610678275;
  5059.     procedure Change(const Ctrl: CommandBarComboBox); dispid 1;
  5060.   end;
  5061.  
  5062. // *********************************************************************//
  5063. // Interface: ICommandBarButtonEvents
  5064. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5065. // GUID:      {55F88890-7708-11D1-ACEB-006008961DA5}
  5066. // *********************************************************************//
  5067.   ICommandBarButtonEvents = interface(IDispatch)
  5068.     ['{55F88890-7708-11D1-ACEB-006008961DA5}']
  5069.     procedure Click(const Ctrl: CommandBarButton; var CancelDefault: WordBool); stdcall;
  5070.   end;
  5071.  
  5072. // *********************************************************************//
  5073. // DispIntf:  ICommandBarButtonEventsDisp
  5074. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5075. // GUID:      {55F88890-7708-11D1-ACEB-006008961DA5}
  5076. // *********************************************************************//
  5077.   ICommandBarButtonEventsDisp = dispinterface
  5078.     ['{55F88890-7708-11D1-ACEB-006008961DA5}']
  5079.     procedure Click(const Ctrl: CommandBarButton; var CancelDefault: WordBool); dispid 1;
  5080.   end;
  5081.  
  5082. // *********************************************************************//
  5083. // DispIntf:  _CommandBarButtonEvents
  5084. // Flags:     (4112) Hidden Dispatchable
  5085. // GUID:      {000C0351-0000-0000-C000-000000000046}
  5086. // *********************************************************************//
  5087.   _CommandBarButtonEvents = dispinterface
  5088.     ['{000C0351-0000-0000-C000-000000000046}']
  5089.     procedure QueryInterface_(var riid: {??TGUID} OleVariant; out ppvObj: {??Pointer} OleVariant); dispid 1610612736;
  5090.     function AddRef_: UINT; dispid 1610612737;
  5091.     function Release_: UINT; dispid 1610612738;
  5092.     procedure GetTypeInfoCount_(out pctinfo: SYSUINT); dispid 1610678272;
  5093.     procedure GetTypeInfo_(itinfo: SYSUINT; lcid: UINT; out pptinfo: {??Pointer} OleVariant); dispid 1610678273;
  5094.     procedure GetIDsOfNames_(var riid: {??TGUID} OleVariant; rgszNames: {??PPShortint1} OleVariant; 
  5095.                              cNames: SYSUINT; lcid: UINT; out rgdispid: Integer); dispid 1610678274;
  5096.     procedure Invoke_(dispidMember: Integer; var riid: {??TGUID} OleVariant; lcid: UINT; 
  5097.                       wFlags: {??Word} OleVariant; var pdispparams: {??DISPPARAMS} OleVariant; 
  5098.                       out pvarResult: OleVariant; out pexcepinfo: {??EXCEPINFO} OleVariant; 
  5099.                       out puArgErr: SYSUINT); dispid 1610678275;
  5100.     procedure Click(const Ctrl: CommandBarButton; var CancelDefault: WordBool); dispid 1;
  5101.   end;
  5102.  
  5103. // *********************************************************************//
  5104. // Interface: WebPageFont
  5105. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5106. // GUID:      {000C0913-0000-0000-C000-000000000046}
  5107. // *********************************************************************//
  5108.   WebPageFont = interface(_IMsoDispObj)
  5109.     ['{000C0913-0000-0000-C000-000000000046}']
  5110.     function Get_ProportionalFont: WideString; safecall;
  5111.     procedure Set_ProportionalFont(const pstr: WideString); safecall;
  5112.     function Get_ProportionalFontSize: Single; safecall;
  5113.     procedure Set_ProportionalFontSize(pf: Single); safecall;
  5114.     function Get_FixedWidthFont: WideString; safecall;
  5115.     procedure Set_FixedWidthFont(const pstr: WideString); safecall;
  5116.     function Get_FixedWidthFontSize: Single; safecall;
  5117.     procedure Set_FixedWidthFontSize(pf: Single); safecall;
  5118.     property ProportionalFont: WideString read Get_ProportionalFont write Set_ProportionalFont;
  5119.     property ProportionalFontSize: Single read Get_ProportionalFontSize write Set_ProportionalFontSize;
  5120.     property FixedWidthFont: WideString read Get_FixedWidthFont write Set_FixedWidthFont;
  5121.     property FixedWidthFontSize: Single read Get_FixedWidthFontSize write Set_FixedWidthFontSize;
  5122.   end;
  5123.  
  5124. // *********************************************************************//
  5125. // DispIntf:  WebPageFontDisp
  5126. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5127. // GUID:      {000C0913-0000-0000-C000-000000000046}
  5128. // *********************************************************************//
  5129.   WebPageFontDisp = dispinterface
  5130.     ['{000C0913-0000-0000-C000-000000000046}']
  5131.     property ProportionalFont: WideString dispid 10;
  5132.     property ProportionalFontSize: Single dispid 11;
  5133.     property FixedWidthFont: WideString dispid 12;
  5134.     property FixedWidthFontSize: Single dispid 13;
  5135.     property Application_: IDispatch readonly dispid 1610743808;
  5136.     property Creator: Integer readonly dispid 1610743809;
  5137.   end;
  5138.  
  5139. // *********************************************************************//
  5140. // Interface: WebPageFonts
  5141. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5142. // GUID:      {000C0914-0000-0000-C000-000000000046}
  5143. // *********************************************************************//
  5144.   WebPageFonts = interface(_IMsoDispObj)
  5145.     ['{000C0914-0000-0000-C000-000000000046}']
  5146.     function Get_Count: SYSINT; safecall;
  5147.     function Get_Item(Index: MsoCharacterSet): WebPageFont; safecall;
  5148.     function Get__NewEnum: IUnknown; safecall;
  5149.     property Count: SYSINT read Get_Count;
  5150.     property Item[Index: MsoCharacterSet]: WebPageFont read Get_Item; default;
  5151.     property _NewEnum: IUnknown read Get__NewEnum;
  5152.   end;
  5153.  
  5154. // *********************************************************************//
  5155. // DispIntf:  WebPageFontsDisp
  5156. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5157. // GUID:      {000C0914-0000-0000-C000-000000000046}
  5158. // *********************************************************************//
  5159.   WebPageFontsDisp = dispinterface
  5160.     ['{000C0914-0000-0000-C000-000000000046}']
  5161.     property Count: SYSINT readonly dispid 1;
  5162.     property Item[Index: MsoCharacterSet]: WebPageFont readonly dispid 0; default;
  5163.     property _NewEnum: IUnknown readonly dispid -4;
  5164.     property Application_: IDispatch readonly dispid 1610743808;
  5165.     property Creator: Integer readonly dispid 1610743809;
  5166.   end;
  5167.  
  5168. // *********************************************************************//
  5169. // Interface: HTMLProjectItem
  5170. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5171. // GUID:      {000C0358-0000-0000-C000-000000000046}
  5172. // *********************************************************************//
  5173.   HTMLProjectItem = interface(_IMsoDispObj)
  5174.     ['{000C0358-0000-0000-C000-000000000046}']
  5175.     function Get_Name: WideString; safecall;
  5176.     function Get_IsOpen: WordBool; safecall;
  5177.     procedure LoadFromFile(const FileName: WideString); safecall;
  5178.     procedure Open(OpenKind: MsoHTMLProjectOpen); safecall;
  5179.     procedure SaveCopyAs(const FileName: WideString); safecall;
  5180.     function Get_Text: WideString; safecall;
  5181.     procedure Set_Text(const Text: WideString); safecall;
  5182.     function Get_Parent: IDispatch; safecall;
  5183.     property Name: WideString read Get_Name;
  5184.     property IsOpen: WordBool read Get_IsOpen;
  5185.     property Text: WideString read Get_Text write Set_Text;
  5186.     property Parent: IDispatch read Get_Parent;
  5187.   end;
  5188.  
  5189. // *********************************************************************//
  5190. // DispIntf:  HTMLProjectItemDisp
  5191. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5192. // GUID:      {000C0358-0000-0000-C000-000000000046}
  5193. // *********************************************************************//
  5194.   HTMLProjectItemDisp = dispinterface
  5195.     ['{000C0358-0000-0000-C000-000000000046}']
  5196.     property Name: WideString readonly dispid 0;
  5197.     property IsOpen: WordBool readonly dispid 4;
  5198.     procedure LoadFromFile(const FileName: WideString); dispid 5;
  5199.     procedure Open(OpenKind: MsoHTMLProjectOpen); dispid 6;
  5200.     procedure SaveCopyAs(const FileName: WideString); dispid 7;
  5201.     property Text: WideString dispid 8;
  5202.     property Parent: IDispatch readonly dispid 10;
  5203.     property Application_: IDispatch readonly dispid 1610743808;
  5204.     property Creator: Integer readonly dispid 1610743809;
  5205.   end;
  5206.  
  5207. // *********************************************************************//
  5208. // Interface: HTMLProjectItems
  5209. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5210. // GUID:      {000C0357-0000-0000-C000-000000000046}
  5211. // *********************************************************************//
  5212.   HTMLProjectItems = interface(_IMsoDispObj)
  5213.     ['{000C0357-0000-0000-C000-000000000046}']
  5214.     function Item(var Index: OleVariant): HTMLProjectItem; safecall;
  5215.     function Get_Count: Integer; safecall;
  5216.     function Get__NewEnum: IUnknown; safecall;
  5217.     function Get_Parent: IDispatch; safecall;
  5218.     property Count: Integer read Get_Count;
  5219.     property _NewEnum: IUnknown read Get__NewEnum;
  5220.     property Parent: IDispatch read Get_Parent;
  5221.   end;
  5222.  
  5223. // *********************************************************************//
  5224. // DispIntf:  HTMLProjectItemsDisp
  5225. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5226. // GUID:      {000C0357-0000-0000-C000-000000000046}
  5227. // *********************************************************************//
  5228.   HTMLProjectItemsDisp = dispinterface
  5229.     ['{000C0357-0000-0000-C000-000000000046}']
  5230.     function Item(var Index: OleVariant): HTMLProjectItem; dispid 0;
  5231.     property Count: Integer readonly dispid 1;
  5232.     property _NewEnum: IUnknown readonly dispid -4;
  5233.     property Parent: IDispatch readonly dispid 2;
  5234.     property Application_: IDispatch readonly dispid 1610743808;
  5235.     property Creator: Integer readonly dispid 1610743809;
  5236.   end;
  5237.  
  5238. // *********************************************************************//
  5239. // Interface: HTMLProject
  5240. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5241. // GUID:      {000C0356-0000-0000-C000-000000000046}
  5242. // *********************************************************************//
  5243.   HTMLProject = interface(_IMsoDispObj)
  5244.     ['{000C0356-0000-0000-C000-000000000046}']
  5245.     function Get_State: MsoHTMLProjectState; safecall;
  5246.     procedure RefreshProject(Refresh: WordBool); safecall;
  5247.     procedure RefreshDocument(Refresh: WordBool); safecall;
  5248.     function Get_HTMLProjectItems: HTMLProjectItems; safecall;
  5249.     function Get_Parent: IDispatch; safecall;
  5250.     procedure Open(OpenKind: MsoHTMLProjectOpen); safecall;
  5251.     property State: MsoHTMLProjectState read Get_State;
  5252.     property HTMLProjectItems: HTMLProjectItems read Get_HTMLProjectItems;
  5253.     property Parent: IDispatch read Get_Parent;
  5254.   end;
  5255.  
  5256. // *********************************************************************//
  5257. // DispIntf:  HTMLProjectDisp
  5258. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5259. // GUID:      {000C0356-0000-0000-C000-000000000046}
  5260. // *********************************************************************//
  5261.   HTMLProjectDisp = dispinterface
  5262.     ['{000C0356-0000-0000-C000-000000000046}']
  5263.     property State: MsoHTMLProjectState readonly dispid 0;
  5264.     procedure RefreshProject(Refresh: WordBool); dispid 1;
  5265.     procedure RefreshDocument(Refresh: WordBool); dispid 2;
  5266.     property HTMLProjectItems: HTMLProjectItems readonly dispid 3;
  5267.     property Parent: IDispatch readonly dispid 4;
  5268.     procedure Open(OpenKind: MsoHTMLProjectOpen); dispid 5;
  5269.     property Application_: IDispatch readonly dispid 1610743808;
  5270.     property Creator: Integer readonly dispid 1610743809;
  5271.   end;
  5272.  
  5273. // *********************************************************************//
  5274. // Interface: MsoDebugOptions
  5275. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5276. // GUID:      {000C035A-0000-0000-C000-000000000046}
  5277. // *********************************************************************//
  5278.   MsoDebugOptions = interface(_IMsoDispObj)
  5279.     ['{000C035A-0000-0000-C000-000000000046}']
  5280.     function Get_FeatureReports: SYSINT; safecall;
  5281.     procedure Set_FeatureReports(puintFeatureReports: SYSINT); safecall;
  5282.     property FeatureReports: SYSINT read Get_FeatureReports write Set_FeatureReports;
  5283.   end;
  5284.  
  5285. // *********************************************************************//
  5286. // DispIntf:  MsoDebugOptionsDisp
  5287. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  5288. // GUID:      {000C035A-0000-0000-C000-000000000046}
  5289. // *********************************************************************//
  5290.   MsoDebugOptionsDisp = dispinterface
  5291.     ['{000C035A-0000-0000-C000-000000000046}']
  5292.     property FeatureReports: SYSINT dispid 4;
  5293.     property Application_: IDispatch readonly dispid 1610743808;
  5294.     property Creator: Integer readonly dispid 1610743809;
  5295.   end;
  5296.  
  5297. implementation
  5298.  
  5299. uses ComObj;
  5300.  
  5301. end.
  5302.